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Apple ][+, lie, lie™ et Macintosh™ 
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POUR VOTRE APPLE 



MAITRISEZ LA PROGRAMMATION 



Basic + 

80 routines pour Apple* 

par Michel Martin 
144 pages -as.ooFF 

Pour "Muscler" votro Apple, crccr vos 
propres jeux d'animailon et rnailriser la 
technique du dessin animd. 

Techniques de programmatlon 
sur Apple II* 

par Ren4 Bolle 

168 pages - 95,00 FF 

Pour creer des logiciels plus puissanls et 
plus structures grace a des astuces JIIus- 
trees de nombreux programmes. 

L'Apple et ses fichiers" 

par Jacques BoJsgontier 
176 pages- 95,00 FF 

Les commandes du Systeme d'Exploitation 
Disquc, les instructions du Basic Applesoft 
et des fichiers sequentiels et a acces 
direct puis leur utilisation a I'aide de 
programmes divers. 



REALISEZ VOS APPLICATIONS 



Destination aventure sur Apple* 

parOelton T. Horn 
246 pages- 14O.00 FF 

Utilisoz los instructions, les explications et 

les astuces de programrnalion de ces 4 
jeux d'aventure en Basic pour cr6er les 
votres. 

La programmation des jeux 
d'arcades* 

par Jean-Luc Fischer 

300 pages - 140,00 FF 

Pour generer sur votre Apple des effets 

sp^ciaux epoustouflants grace a des 

programmes en Basic ot en Asscmbleur. 

Apple, logique et syatemes 
experts" 

par Rend nesnampn 
224 pages - 120,00 FF 

Pour etudier toutes les Stapes loglques de 
la pensSe humaine et creer un micro 

systdmo oxport en Basic. 
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EGALEMENTCHEZ VOTRE LIBRA! RE ET EN BOUTIQUE SPECIALISEE 



Apple, modems et serveurs* 

par Alain Mariatte 

224 pages 120,00 FF 

Apprenez a vous servir d'un modern ,a 

utiliser un logiciel de communication, a 

connattre les principaux reseaux et vous 
famitiariser avec les outils lelematiques. 

Dietetique sur Apple* 

par J. M Jego et J.M Lichtenberger 

224 pages - 120,00 FF 

Pour calculer votre surface corporelle et 

docouvrir votre metabolisme e'nergetique 

grace a votre Apple. 



EXPLOITER LE SYSTEME 
ET L'ASSEMBLEUR 



Assembleur de KAppio*** 

parN. Breaud -Pouliquun 

240 pages- 120,00 FF 

Pour apprendre a obtenir rapidite d'exe- 

cjtion et economie de memoire.voici une 

initiation a I'assembleur (6502 - 65C02) 

illuslree de nombreux programmes. 

ProDos sur Apple lie et lie* 

par Francis Verscheure 
104 pages - 85 f 00 FF 

Decouvrez PioDos pour g€ner des cata- 
logues et des fictiiers si vous voulez 
profiler de ce systeme performant. 

Clots pour I'AppIe II" 
144 pages- 106,00 FF 
Clefs pour I'AppIe lie et 
He 65C02" 

172 pages -1 30,00 FF 
parN. Breaud -Poulrquen 

Pour acceder rapidement a la syntaxe des 
commandes. aux codes caracteres, aux 
codes machine... et dc3 trues utiles 
lorsque vous programmez. 

Le3 ressources de I'AppIe lie*** 

parN, Breaud Pouliquen 
108 pages- 85.00 FF 

Pour docouvrir les avantages du llc.ub'liser 
le logiciel du base du systeme et pro- 
grammer astucieusement la souris. 
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Route Neuve 1. 1701 Fribourg 
Tel: (037) 23 18 29 
Au Canada, a PROLOGUE NC. 
2975 rue Sarieton. Vffle St Laurent 
Quebec H4R1E6- Tel : (514) 332 58 60 
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Des atouts pour votre Apple 



Editeur 
plein ecran 



a. 



Apple ][+, 

//e et //c 



ml 



p 



Listez vos programmes Basic 
en avant et en arriere. Modifiez; 
inserez, effacez des caracteres 
en plein ecran sans relire les 
lignes. Recherchez toute 
chaTrie de caracteres. 
Choisissez vous-meme les 
codes de pontrole d'EPE. 
Modifiez EPE : le fichier source 
fist stir la riisnijette." 





Vous avez un 
traltement de texte 
et une ImageWriter , 
alors... 



augmentera conszderabletnent les possibilites 
ti 'impxps a? 1 u/j tie yotxe Ic^iciel. 'V&us pouvez 
obtenir une justification droite, gauche, 
totale, centree, ou encore page psire a droice 

et impairs a gauche ce facon automatique. A : 

/icter que la justification n' est pss perturbee 

par 'les caracteres du type 'e' ou '<5'. Le 
style d ' Jjnpresslvn peut passer de +a simple d 

la double largreur* de gras ou souligne -a 
normal, en proporlionnel ei au seiit d'une jueme 
ligne saris perte de justification. P-Format Jf 
Cesc aussi : un mode mathemaLzque et un mode 
graphiqve gra"ce ^ Is po7 »'w programme**. 



lie 
lie 



DISK 

MANAGER 
LE DOS 



EN KIT 

Accompagn6 d'une cinquantaine de pages 
de documentation. Disk Manager permet 
de reciter les commandes du Dos, red6fi- 
nir 1'organisation d'une disquette, grace a 
un jeu destructions qui en fait un langage 
simple d'acces k la disquette, H offre ega- 
lement un programme d'6dition & l'aide de 
commandes 6volu6es. Quatre utilitaires 
figurent aussi sur la disquettes ; Utili- 
disque (reparation du disquette detruite, 

verification. . .), Ultra-copie (pour un 
backup tres rapidc), Edicat (edition du 
catalogue, ...) et Multi-disque. 



Apple 
Apple 



V/e 



d 
© 
CO 



Abonnements a Pom's pour 6 numeros : 

• abonnement a la revue seule 200,00 F 

• abonnement revue el dequeues Apple ][ . . . 480,00 F 
- abonnement revue el disquettes Macintosh. . 600,00 F 

Editeur plein ecran EPE 150,00 F 

P-Format][ 200,00 F 

DISK MANAGER 450,00 F 

BASTCTUM 150,00 F 



Cet utilitaire vous permet de gerer des 
masques ou ecrans 40 ou 80 colonnes, 
saisir toutes les variables d'un ecran en 
une seule commande, recopier r&cran 
40 ou 80 colonnes sur Hmprimante, 
Taire un nettoyage memoire (garbage 
collection) tres rapide, gerer des 
messages, ne saisir que Tune des 
variables affeclees a un ecran, etc. 

Pour Apple ][+ ou Apple We 



Nom . . 
Prenom . 
Adresse 



Envoyez ce bon et votre reglement 3 EDITIONS MEV - 64, rue des Chantiers - 78000 Versailles. 
Supplement avion hors CEE : 15,00 F par riumdro et/ou disquette. 



Editorial 



II n'est pas facile d'etre honnete ct de rnaintcnir certains standards dans un monde oil le souci 
d'integrite est souvent pris pour de la naivete. Comme vous avez pu le constater, Pom's est une revue 
comporzant fori peu de publicity. Cela xient en bonne partie a notre rtfus, malgre I'insistance de 
nombreux de nos clients, de promettre des articles sur leurs produits en echange de contrats de 
publicite, un mode d'echange pudiquement baptise "publicite redactionnelle" . 

Poms prefere garder sa liberie d 'expression, au risque de perdre certains annonceurs. Nousfaisons le 
pari que tes leeteurs ne se taisseront pas abuser par cesfaux articles, qui powraient les encourager a 
acheter des produits de qualite insuffisante. 

Le monde de I' Apple II, comme nous le montre bien Jean-Michel Gourevitch depuis plusieurs 
numeros, est en constante evolution. Dans combien de temps disposerons-nous d'un Apple II aussi 
puissant que le Macintosh ? Probablement plus tres longtemps ; il n'en reste pas moins que - pour des 
raisons de compatibility avec le vieil Apple II — on n'arrivera pas tout de suite avec ce materiel d la 
quality ergonomique du Macintosh. 

Ceci dit r ces derniers temps, le monde du Macintosh houge encore plus vite que celui de i Apple 11, 
avec en pariiculier I'arrivie du MacPlus. Depuis quelques mois, le prix des extensions 512K pour le 
Mac baisse sans cesse : nous sommes passes en un an de pratiquement 12.000 F TTC a moins de 
3.000 F TTC aujourd'hui. Quand on voit le prix que coute encore aujnurd'hui ['extension a 1 Mo, le 
possesseur d'un Mac aura imirit dfaire transformer son Mac en MacPlus (extension d 1 Mo, nouvelles 
ROMs, passage du tecteur integre a 800K) plutot que de s'offrir la seule extension memoire. 

Autre signe des temps, apris s'itre longtemps enferme dans sa politique de standard a part de 
rindustrie, Apple met en relief sa capacite a travailler en reseau avec le monde IBM. 

Nous continuons d recevoir des lettres de possesseurs d 'Apple II s'inquietant de savoir si nous n'allons 
pas abandonner progressivement celui-ci pour le Macintosh. Je pense que, depuis le temps que nous 
proposons le cahier Macintosh, ces leeteurs peuvent e.tre rassures : nous n'avons pas reduit la 
pagination Apple II - comme promis — et toute extension du cahier Mac se fera sous la forme d'une 
augmentation de la pagination. 

Remarque itnportante : nous continuons d recevoir du courrier d Vancienne adresse, mais celui-ci ne 
suit plus systematiquement* Pour etre sur que vos lettres nous parviennent, utilisez done I'adresse : 
64170 rue des Chantiers - 78000 Versailles. 

Hervt Thiriez 

Photo de couverture : Macintosh Plus - Clavier AZF.RTY avec pave* numerique incorpore\ 1 Mooters de RAM 
bienifit extensible k 4 Mociets, 128 Ko de ROM, routines QuickDraw nSScrites pour plus de rapidity lecceur de disquenes 
double face double dcnsit6 800 Ko. Prix hors TV A : Macintosh Plus : 25900 F (lc Mac 512 Ko coute ddsormais 
22900 F, le Mac 128 Ko est abandonn£) - lecteur externe 800 Ko (pour Mac Plus ou Mac standard) : 3900 F - mise a 
niveau Mac Plus pour Mac 128 Ko : 6500 F - mise a niveau Mac Plus pour Mac 512 Ko : 4500 F. 



Ont collabore a ce num£ro : Alexandre Avrane, Jean-Luc Bazanegue, Manfred Brede. Pascal Cantot, Jean-Louis 
Chauvin, Alexandre Duback, Bruno Fenard, Bernard France, Sylvie Gallet, Jean-Michel Gour6vitch, Olivier Herz, 
Bernard Hoyez, Gerard Michel, Jean-Luc Nail, Patrice Neveu, Christian Piard, Guillaume Pot, Marianne Sutz 

Directeur de la publication, r£dacteur en chef : Herv6 Thiriez. 

Redacteurs : Alexandre Avrane, Olivier Herz. 

Siege social : Editions MEV - 49, rue Lamartine - 78000 Versailles. Til : (1) 39.51.24.43. 
Publicite : Editions MEV. 
Diffusion : N.M.P.P. 

Impression : Rosay - 47, avenue de Paris - 94300 VLncennes. TO, r (1) 43.28.18.63. 

Pom's est unc rcvucindiJpcndantc non rattachec a Apple Computer. Inc. ni a Apple Computer France S.A.R.L. Apple, le logo Apple. Mac ct lc 
logo Mackintosh sunt des marques deposees d* Apple Computer. Inc. 
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Composition automatique 
de numeros de telephone 

Bernard Hoyez, Jean-Luc Nail 



TTe plus se souvenir d'un 
f^L I numero, ou le doigt qui 
/ derape sur le clavier du 

T telephone, cela vous est 
deja arrive, n'est-ce-pas ? La 
numerotation % huit chiffres n'a 
pas arrange les choses. Combien 
de temps et de taxes de base cela 
vous a-t-il coute ? Une solution h 
ce problfcme est de remplacer 
votre vieux telephone & cadran par 
un supcrbe appareil a memoires 
ou alors... de demander k votre 
vieil Apple de faire ce travail h 
votre place. Desormais, Romeo, 
faites apparaitre le doux nom de 
Juliette sur l'ecran de votre 
ordinateur favori et vous 
cntendrez aussitot la voix de votre 
chfere et tendre amie. 
Le composeur automatique de 
numero necessite : 

• une interface entre 1'Apple et la 
ligne telephonique ; 

• un logiciel de composition de 
numero. 

Principe de la 
composition (Tun 
numero 
telephonique 



14" 



Prise dc Ugnc 

V 



Un appel telephonique se 
decompose en quatre phases : 

• la prise de ligne ; 

• la composition du 'numero sur 
le clavier ou le cadran ; 

• I'echange audio ; 

• le raccrochage. 

La prise de ligne s'effectue 
lorsque Ton decroche le 
combine : un interrupteur se 
ferme et court-circuite la ligne. 

La composition de numeros 
consiste h envoyer sur la ligne une 
succession de signaux repre- 
sentant chacun un chiffre. Un 
chiffre est lui-meme une 
succession d'impulsions et h 
chaque chiffre correspond un 
certain nomtire d'impulsions 
clcmcntaircs : une impulsion pour 
le chiffre 1 , deux impulsions pour 
le chiffre 2, 10 impulsions 
pour le chiffre 0. Une impulsion 
comporte une ouverture de ligne 
d'une duree de 66 millisecondes 
suivie d'une fermeture de ligne de 
33 millisecondes. 

Le raccrochage s'opSre lorsqu'on 
repose le combine, ce qui a pour 
effet d'ouvrir i nouveau le circuit. 
La forme du signal envoye sur la 
ligne a Vaspect represents dans 
l'encadrd. 



L'interface : 
la prise de jeu ! 

Le principe en est simple, il s'agit 
de simuler un second t6I6phone en 
parallele pour lequel la prise de 
ligne, la composition et le 
raccrochage seront geres par 
1'ordinateur. Une fois la 
communication etablie par ce 
"telephone virtuel", on reprend la 
ligne par le telephone r€tl 

Le telephone virtuel agit comme 
un interrupteur, dont - la 
commande peut etre realiscc par 
une sortie logique de V Apple. 
Inutile de concevoir une carte 
specialisee car ces sorties logiques 
existent sur la prise de jeu. Elles 
sont au nombre de quatre et 
appelees ANO, AN1, AN2 et 
AN3. Elles ne sont accessibles 
qu'S Tinterieur de I' Apple au 
niveau du connecteur 16 broches. 

Sur 1'Apple lie , on a neglige de 
reprendre ces sorties sur le 
connecteur externe 9 broches, 
e'est dommage. Une seule sortie 
est necessaire, nous avons choisi 
ANO situe sur la broche numdro 
15. 

\ 



g 












3 









PULSE 



Chiffre 3 



Inter chiffre 



Chiffre! 



Temps 
Raccrochage 



V 

6 
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Four assurer une isolation parfaite 
entre l'Applc ct la ligne 
telephonique, l'interrupteur est 
celui d'un relais. Nous avons 
choisi un mini-relais 5 V de type 
CLARE PRME (on equivalent). 
Pour commander ce relais, il faut 
amplifier le signal fourni par 
ANO, grSce k un transistor et au 
+ 5 V aisponible sur la broche 1 
du connecteur de jeu. 
L'ensemble des composants 

prend place sur une petite 
plate-forme cnfichcc dans lc 
connecteur de jeu par 
l'intermediaire d'un support de 
circuit integre. 

Le programme 

Une partie de la memoire de 
1' Apple est reservee aux 
entrees/sorties, notamment pour 
ce qui nous concerne aux sorties 
logiques ou "annonciateurs" de la 
prise de jeu. Pour l'annonciateur 
ANO, il s'agit des memoires 
d'adresses $C059 et $C058. Le 
simple fait d'ecrire k ces adresses 
met respectivement la broche ANO 
k 1'etat 1 (3,5 V) ou k 1'etat 
(0,3 V). 

Cette ecriture peut se faire de deux 
manures, soit en Basic, soit en 
langage-machine : 

• en BASIC, on pourra faiie un 
POKE 49241,0 (etat 1) ou un 



POKE 49240,0 (etatO); 

• cn langagc d'asscmblagc. on 
ecrira ST A SC059 (etat 4) ou 
STASC058 (etatO). 

Lc logiciel consists done h gerer la 
commutation de ces deux adresses 

• k des imervalles de temps precis et 
brefs. Lors de la composition 
d'un chiffre, entre deux 
impulsions succcssivcs, lc 
passage a 1'etat haut dure 33 
millisecondes. Un tel laps de 
temps est trop court pour etre 
maitrisd dans un programme 
Basic, d'oii la necessite d'ecrire 
en langage-machine la partie du 
programme effectuant la 
composition des chiffres. 

Le programme 
'COMPOSEUR' 

Ce programme fait appel a une 
routine de temporisation du 
moniteur appelee WAIT, 
implantee en $FCA8. Elle permet 
de regler precisement les durees 
des passages k 1'etat haul et k 
1'etat bas. La temporisation, en 
microsecondes, est une fonction 
de la valeur entree dans 
1'accumulateur : 

t=(26 + 27*A + 5*A*A)/2 

Ainsi, pour une duree de 66 ms, 
on entrera 159 dans A avant 
d'appeler la routine WAIT. 
Le cas de la composition du 
chiffre est traite it part, car il 



ANO 




2N2219 

V5SSSSSSSR 




u 



ANO. 




150Q 

Wf — n 



14 13 9 8 




1 2 



6 7 



CLARE PRME 5V 



correspond k la generation de 10 
impulsions (ct non dc 0). 
Le code ASCII du chiffre £ 
composer, stocke en memoire 7 
par le programme Basic, est 
charg6 dans 1'accumulateur. Si le 
code ASCII n'est pas celui d'un 
chiffre, on passe au chiffre 
suivant en positionnant un 
drapeau en memoire 8. Le AND 
#$0F permet la transformation du 
code ASCII en chiffre de * 9. 
Le cas particulier du est ensuite 
traite. La routine principale 
BOUCLE genere alors un nombre 
d'impulsions (PULSE) different 
selon le chiffre stocke dans le 
registre X. 

Le programme 'AGENDA' 

Ce programme Basic etablit la 
correspondance entre le nom d'un 
abonnc ct son numero de 
telephone, puis il effectue la 
composition de ce numero. Le 
choix de Tabonne se fait en 
visionnant Tagenda au moyen des 
fleches gauche et droite. 
Pour ne pas compliquer le 
programme d'un gestionnaire de 
fichier, les noms d'ahonnes et 
leur numero sont integres i la fin 
du programme sous forme de 
DATA. II suffira d'aj outer de 
nouvelles lignes de DATA pour 
entrer de nouveaux corres- 
pondents. Lc programme place 
ces donnees dans le tableau T$. 
Rien ne vous empSche, si vous 
possddez un agenda sur disquette 
dont vous connaissez la structure, 
de le recuperer dans le tableau T$. 
Comme la liste de vos 
correspondants est susceptible de 
changer tres souvent, on a evite 
de remplir le tableau T$ au moyen 
d'une boucle FOR, ..NEXT que 
Ton aurait du ajusler cheque fois. 
En cas de fin de DATA, la routine 
de traitement d'erreur interrompt 
lc rcrnplissage du tableau. 
Une fois le choix valide par la 
frappe sur la touche <RETURN>: 

A On effectue la prise de ligne 

(ligne 380). 
B Le code ASCII de chaque 

chiffre du numero telephonique 
est stocke en memoire 7 et un 
appel k la routine 'Composeur' 
est fait, ceci autant de fois que 
le numero cornporte de 
chiffres. Entre chaque chiffre 



J 
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compose est laisse un temps de 
relaxation. 

C Des que le numero est 
compose, vous pouvez 
decrocher le combine tele- 
ph unique. Le "telephone 
virtuel" reste tranche en 
parallfele pendant quelques 
secondes, le delai restant est 
affiche surlecran. 

D Lc "telephone virtucl" est alors 
coupe (Hgne 550), vous restez 
alors seul en communication. 
Alio... Juliette... ? 



N.D.L.R. : un tel montage n'entre 
pas dans le cadre de ce que vous 
autorise ['administration des 
Posies. Vous testerez ceci, bien 
entendu, sur une installation 
independante da reseau. 
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30 
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LDA 


COMPOSE 
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COMPOSEUR.S 


31 UMKffitt 
32 

33 BOUCLE 


TAX 




(ASS&mDIGU r merlinj 
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* 




34 


JSR 


PULSE 




35 


DFX 
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36 


BNE 


BOUCLE 


3 * Compos eu r * 


37 


RTS 




4 ' 


38 








39 ERROR 
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40 


LDA 


t$FF 


7*8 noveabre 85 


42 


STA 


ERREUE 


8 


42 


RTS 




9 


4.1 






10 ;ADRESSES 


44 PULSE 


LDA 


11 59 


11 


45 


STA 


CLRANO 


12 SETANO - SC059 


46 


JSR 


Nfi.II 


13 CLRANO - 


47 


LDA 


4108 


14 WAIT - SFCA8 


48 


STA 


SETANO 


15 CU1FFHE - 7 


49 


JSR 


WAIT 


16 F.RRF.UR = 8 


50 


RTS 





a 



17 
IB 
19 
20 
21 
22 
23 
?4 
25 
24 
27 

28 



ORG £300 



EHTRtE m 



LDA CHIFFPE 

CMP i'0 m -l 

RCC FJiROR 

CUP i-9 m *l 

BCS ERROR 



Recapitulation 
COMPOSEUR 

0300- A5 07 CS AF 90 12 C9 BA 
0308- BO 0E 29 OF DO 02 A9 OA 

mm- aa po in o.i m no fa 60 
0318- A9 FF 8S 08 60 A9 9F 8D 
0320- 58 CO 20 AS FC A9 6C BD 
UJZtt- 53 CO 20 A6 t'C 60 



Programme 

AGENDA 

10 REM ***COMPOSEUR DE NUMERO*** 

20 REM * par * 

30 REM * Bernard HQYEZ * 

40 REM * et Jean-rLuc NAIL * 
50 REM 

60 REM ==>F.NTRF.R LES NOMS ET LES NUMERGS EN D 

ATA A LA 5UITE DES AUTRES 
70 REM ************************* 
80 HOME 

90 ON ERR GOTO 570 

100 PRINT " COMPOSITION AUTOMATIQUE DE" 

110 PRINT " NUMERO TFJ.FPHONTQUF." 

120 PRINT CBM$ ( 4 ) ; "BLQADCOMPOSEUR" 

130 DIM T$ (100,2) 

140 N = 

150 N - N + 1 

160 FOR J = 1 TO 2 

170 READ T$(N,J) 

180 NEXT J 

190 GOTO 150 

200 VTAB (8) 

210 PRINT "Utilises les £ leches ";: INVERSE 
: PRINT "=>",-: NORMAL : PRINT " ec '*; ; I 
NVERSE ; PRINT "<-"; NORMAL 

220 PRINT "pour selectionner le nom de 1'abo 
one" 

230 PRINT : PRINT "Validez avec la touche RE 

TURN" 
240 1=0 
250 GET A$ 
260 AS = ASC (AS) 

2 70 IF A% < -> 13 AND A% < -> 21 AND A% < > 
R TRF.N ?d0 



280 IF AS = 13 THEN 360 

290 IF A% = 21 THEN 1=1+1 

300 IF A% =8 THEN 1=1-1 

310 IF I > N - 1 THEN I m N - 1 

320 IF I < 1 THEN 1 = 1 

330 VTAB 15 

340 CALL - 868: PRINT T$ (1, 1) , (1 , 2) 

350 GOTO 250 

360 X$ = T$(I,2) 

370 REM • 'COMPOSITION DU NUMERO' 

380 POKE 49241,0: REM PRISE DE LIGNE 

390 FOR I - i 7*0 700: NEXT I 

400 HOME 

410 PRINT ; PRINT "Je compose le numero "; 

420 FOR 1=1 TO LEN fX$) 

430 A = ASC ( MID$ (X$,I,1)> + 120 

440 POKE 7, A 

450 CALL 768 

460 PRINT CHR$ (A); 

4 70 FOR T — 1 TO 600: NEXT T 

400 NEXT I 

490 HTAB 1: VTAB 5: PRINT "Decrochez uuiiib 
ine, maifltonant . . . " 

500 VTAB b: PRINT " avant" 

510 FOR I = 4 00 TO 1 STEP - 1 

520 VTAB (15) : HTAB (HI 

530 PRINT INT (I / 50)/" secondes" 

540 NEXT I 

550 POKE 43240, 

560 GOTO 580 

570 IF PEEK (222) * 42 THEN 200 

580 HOME : RESTORF 

590 PRINT "...Prez pour un autre appel 

GOTO 140 

600 DATA RENSE1 GNEMENTS, 3612 

620 DATA AUTRES RENSEIGNEMENTS, 3611 

630 DATA JULIETTE, 123456/8 
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A daptation a ProDOS des 
routines en assembleur 

Alexandre Avrane 



/l existe actuellement plusieurs centaines d'utilitaires 
en assembleur qui facilitent la programmation en 
Applesoft : tris, controle de saisie, formatage de 
nombres, etc. Malheureusement ces routines, 
congues pour fonctionner correctement sous DOS 3.3, ont 
ete assemblies h des adresses fixes et ne tournent plus dans un 
environnement ProDOS ; l'objectif de cet article est done de 
r£pondre aux questions des lecteurs qui desirenl conserver 
l'acquis d'une importante logitheque d'utilitaires, en les 
transposanl pour un environnement ProDOS. 



Cependant, il s'agit plus de 
fournir des conseils que de 
proposer un module lout chaud et 
pret-^-executer, car une telle 
conversion n'est pas une 
operation automatique qui peut 
facilement se ramener & un 
algorithme unique. N'oublions 
pas qu'il ne s'agit pas de recopier 
un fichier sous un formal 
different, mais egalement de le 
modifier pour qu'il soit adapts & 
son nouvel environnement. 

Certains programmes publies par 
Pom's -serviront d'exemple et de 
reference... auto-publicite exige! 
Enfin, la demarche a appliquer 
sera volontairement detaillee car 
elle s'adresse egalement aux 
lecteurs qui connaissent peu 
l'assembleur; certaines recom- 
mandations pourraient done 
paraitre superflues. 

Avant de se precipiter sur son 
clavier, il n'esl pas inutile de se 
poser quelques questions sur le 

programme & adapter : 

• est-il utile ? 

• est-il adaptable ? 

• ou se loge-t-il ? 

• comment est-il utilise ? 

• comment se protSge-t-il ? 



Le programme 
est-il utile ? 

Une routine peut etre fort utile 
pour surmonter certains handicaps 
du DOS 3.3, mais se reveler en 
revanche de peu d'attrait avec 
ProDOS. 

C'est le cas des programmes 
destines a accelerer les temps de 
chargement de fichiers ; ceux qui 
relogent le DOS sur la carte 
langage, ou tous les utilitaires 
tournant dans un environnement 
DOS 3.3 + Integer Basic. 

Idem pour le programme FRE16 
de nettoyage de la memoire 
(Pom's 2), desormais integre 
dans la commande FRE de 
ProDOS. 

Le programme 
est-il adaptable ? 

Une routine qui supposait comme 
principe essentiel de 
fonctionnement la presence du 
DOS 3.3 ne pourra pas etre 
adaptee ik ProDOS sans une 
revision generate. 



En effet, les appels du File 
Manager ou RWTS d'une part, du 
ProDOS MLI d'autre part, ont des 
structures totalement differentes. 
En pratique, l'examen du source 
du programme donne une serieuse 
indication de sa dependance vis a 
vis du DOS 3.3 : toute reference a 
une etiquette externe situee dans la 
plage d'adresses $9600-$BDFF 
constitue normalement unc forte 
presomption. 

Ainsi, le HELLO complet de 
Pom's 6 ne peut pas Stre adapte 
en quelques minutes & ProDOS ; 
il serait preferable de le reecrire 
completement. De meme pour les 
programmes de francisation du 
DOS (Pom's 2 et 8) : les formats 
sont differents sous ProDOS et, 
de plus, les adresses absolues des 
commandes et libelles d'erreur 
varient pour chaque version. 

Oil le programme 
se loge-t-il ? 

Sous DOvS 3.3, les programmes 
en assembleur pouvaient se loger 
pratiquement n'importe ou ! Sous 
ProDOS, certains emplacements 
sont ik eliminer, en particulier : 

• le buffer d'entree ($200- 
$7.FF), 

• les adresses $9A00-$9CFF 
(anciennement les buffers du 
DOS 3.3), 

• la carte langage, dans son 
integralite. 

La seule exception concerne la 
routine d'acefcs & une carte 
horloge, pour laquelle un petit 
emplacement est reserve, 
moyennant l'adhesion a un 
protocole rigoureux d'interface 
avec ProDOS. 
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Trois emplacements sont 
generalement classiques pour 
placer les routines : 

• La page 3 (adresses $300- 
$3CF) est laissec disponiblc. 
Dans ce cas, vous n'aurez 
probablement aueun problfcme. 

• En revanche, les emplacements 

situes sous les buffers du DOS 
3.3 (limite superieure en $9600), 
ainsi que ccux situcs un pcu plus 
haut et pour lesquels on deplagait 
les buffers du DOS sous la 
routine, vont necessiter un 
deplacement du programme. 
Sinon on obtient generalement, tot 
ou tard, le message 'NO 
BUFFERS AVAILABLE' de 
ProDOS. Nous verrons f)lus loin 
comment reloger un programme 
en assembleur. 

• Enfin, le dernier emplacement 
favori - cacher la routine au sein 
dun programme Applesoft (pour 
les details, lire Pom's 12 page 
35) - est lotalement transparent 
par rapport au systeme 
Sexploitation utilise et ne pose 
aucun probleme. 

Comment le 
programme est-il 

utilise ? 

Toute routine en assembleur est 
appelee soit directement, soit 
indirectement. 

La methode directe consiste a 
demander son execution par un 
CALL vers une adresse 
determinee. Si le programme a ete 
relog6, il ne faudra done pas 
oublier d'indiquer la nouvelle 
adresse au programme appelant. 

L-autre methode utilise indiffe- 
remment l'ampersand (&), 
['instruction USR de ['Applesoft 
ou le Control- Y du moniteur. Ces 
vecteurs sont initialises soit par le 
programme appelant, soit par le 
programme appele (et reloge) ; ici 
aussi, il faudra modifier les 
valeurs ^initialisation (si possible 
en creant un chainage car 
plusieurs routines peuvent utiliser 
le meme vecteur). 



Comment le 
programme est-il 
protege ? 

Dans l'cnvironnemcnt ProDOS, 
les pages d'adresses memoire 
(blocs dc 256 octets) sont 
marquees libres ou occupees. 
ProDOS utilise les pages libres 
pour s'allouer dynamiquement les 
buffers necessaires aux acefcs 
disquc. 

En particulier, ProDOS refusera 
de charger un programme 
assembleur vers un emplacement 
occupe et, inversement, pourrait 

l'ecraser si celui-ci n'a pas 
indiquc les pages qu'il utilise. 

Le programme RAM.B1TMAP de 
Guy d'HERBEMONT permet 
d'illustrer ce processus. II affiche 
la carte des pages memoire 
disponibles (pages $00 k $BF) en 
indrquant pour chacunc si elle est 
occupee ou libre. 

Apr&s le chargement de ProDOS 
+ Basic.System, on obtient : 

01 23456789AB CD EF 
$00 PP° °PPPP° 

$-10 00 ooooooooo ooooo 

$20 00000000000 00000 

$30 °° 000 000000 000 00 
J J Q 00 OODOO O C O 000 00 

"$50 ooooo.ooogoo9° 00 ° 

$60 00000,000000 °o°oo 
$70 ooooooooooo 000 00 

$80 00 00 000000 o° oo ° 

£Q() fid 000 00 p p p p p p 

SAOPPPPPPPPPPPPPPPP 
$BOPPPPPPPPPP° n ° PP 



P = prolog 



' = librc 



On note en particulier. 

• Les pages 0, 1 (pile du 6502), 
4 a 7 (ecran texte) sont protegees 
en permanence. Un programme 
assembleur peut, cependant, les 
utiliser; en particulier les adresses 
en page zero qui sont disponibles 
sous DOS 3.3 le restent sous 
ProDOS. 



• La page 2 (buffer d'entree) est 
libre car ProDOS l'utilise (il 
recopie la commande en cours 
pour en extraire les param£tres, et 
y formate egalement le chemin 
d'accfes complet k un fichier). 

• La page 3 est egalement libre ; 
si vous y placez une routine en 
assembleur, ProDOS pouna done 
l'ecraser par le chargement d'une 
autre routine. 

• Himem ($73-74) pointe vers 
$9600. ProDOS en conclut que 
les 4 pages suivantes ($96 & $99) 
correspondent k son buffer de 
brouillon general, Ces pages ne 
doivent pas 6tre utilises. 

• Les pages suivantes sont 
occupees (les pages $BA k $BD 
servent de zones de travail au 
Basic.System). 

Notez que Ton obtient le message 
"NO BUFFERS AVAILABLE" si 
on tente de charger un fichier 
directement sur une page 
protegee. Or ProDOS gfere 
dynamiquement 1'espace memoire 
de l'Apple pour s'allouer des 
buffers de fichiers (k la difference 
du DOS 3.3 qui, en fonction du 
MAXFILES, se reservait 
definitivement de 1'espace). 



Trouve-moi une 
place oil me loger 

Observons la sequence k 
l'ouverture d'un fichier : 

• ProDOS abaisse Himem de 
IKo ($400 octets) et d^place les 

variables chaines de caracteres de 
1'Applesoft vers le bas (depla- 
cement physique des chaines et 
mise a jour de leur pointeur) ; 

• Son buffer brouillon debute 
done maintenant en $9200, le 

buffer du fichier ouvert est place 
$400 octets plus haut, en $9600 
(jusqu'on $99rF). 

Cette sequence est repetee pour 
chaque nouveau fichier ouvert, 
jusqu'a concurrence de 8 fichiers, 
cc qui portc Himem k $7600. 
Pour chaque fermeture, elle 
s'execute h nouveau mais en sens 
inverse. 
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II n'est pas possible de placer nos 
programmes assembleur juste en 
dessous de $7600 (quelle perte de 
place!), car ceux-ci seraient 
ecrases sans pitie par les chaines 
de earactferes de 1'Applesoft 
deplacees par ProDOS. 

En revanche, une solution 
beaucoup plus elegante existe : le 
placer entre ProDOS et ses 
buffers. 

Supposons que notre programme 
soit assemble de $94A6 jusqu'en 
$95FF. En comptant en nombre 
de pages, il en occupe done 2. Si 
nous le pla?ons en $98A6, il 
occupera done l'cspace jusqu'en 
$99FF. Simultaneraent, abaissons 
Himcm de 2 pages en $9400. 
Com me ProDOS determine la 
position de son buffer brouillon 
en fonction de Him em, il en 
concluera que celui-ci se situe en 
$9400-$97FF. Par la suite, les 
ouvertures de tichiers pourront 
s'effectuer sans probl£me vers le 
bas. 

Deux probl&mes restent a 
resoudre: 

• dune part, notre programme 

ne peut pas etre charge 

directement k son adresse 

definitive car il serait alors chargd 

dans son propre buffer, ce que 

ProDOS refuse. II faut done 

prevoir une petite routine qui le 

charge a une adresse plus basse, 

puis le reloge. 

■ 

• d'autre pan, son chargement 
ne pourrait s'effectuer que si 
aucun autre fichier n'est ouvert, et 
les chaines dc caractircs qu'aurait 
pu creer un programme Applesoft 
seront detruiles. Heureuseinent, 
une routine publique de ProDOS 
permet - nous le verrons - de 
gerer ce point. 

Deplacement des 
programmes 

R6sumons-nous : les petites 
routines en assembleur, ccllcs qui 
se logent sur la page 3 ou se 
cachent dans un programme 
basic, ne posent pas de probl&mes 
majeure. 



Kn revanche, les gros 
programmes - done les plus 
difficiles k recreer soi-meme qui 
se logent autour des buffers du 
DOS 3.3 devront etre places k une 
autre adresse. 

Malheureusernent, quiconque a 
observe un module en assembleur 
sait que Ton ne peut pas 
inpunement les deplacer k travers 
la memoire. Le resultat, quasi- 
assur6, est un magnifique 
plantage. Sculs, quelques 
programmes sont ecrits sous une 
forme dite relogeable... niais ils 
sont bien rares car ils necessitent 
soit des acrobaties de 
programmation pour eliminer les 
JMP, JSR et autres instructions a 
adresse fixe, soit la necessite 
d'utiliser un assembleur precis et 
une routine speciale de 
chargement (1'EDASM et le 
module RLOAD d'Apple par 
exemple). 

II est done necessairc, dans la tres 
grande majorite des cas, de 
reassembler soi-meme la routine 
vers sa nouvelle adresse 
d'implantation. Comme ProDOS 
ne supporte que les allocations de 
mimoire par frontiere de page, il 
faut se simplifier la vie en fixant la 
nouvelle adresse selon la 
formule : 

[nouvelle adresse] - 

S9A00 - ([partie haute de 1'adresse de 
fin] + 1 - [panie hauie de 
1'adresse de rtebut]) * $100 

+ [panie basse de l'adiesse de 

dfibut] 

Ainsi, un programme situe en 
$94A6-$9596 se loge en : 

$9A0O-(S95-S94+l)*$10O-t-$AG«$98A6 

Notons que Ton pourrait 
envisager de faire cohabiter 
simultanement plusieurs 
programmes assembleur sur des 
pages contigues. Mais il faudrait 
alors les reassembler aprSs leur 
chargement (puisque Ton ne peut 
connaitre k l'avance leur adresse 
finale d'implantatiun), ce qui sort 
des limites de cet article. 

Pour reassembler notre 
programme, deux methodes sont 
alors possible ; 



1) La methode dite "appel k 
Murphy" qui coasistc, lorsque 

Ton ne dispose pas d'assembleur, 
& reloger la routine k la main. II 
faut prendre en compte trois 
aspects : 

DEBDT JMP (VECTF.UR1 ) ; 

modifier le dernier 
VECTEUR1 DA ROUTINE1 

tabic d'adrcssc : 

modifier le ler octet 
ROUTINE1 LDA #>DEBUT 

valeur - dependante d'une 

adresse - a modifier 

Comme l'indique son nom, cette 
rnethode, conduite sur de gros 
modules, am&ne k coup sur a un 
plantage. En desespoir de cause, 
consultez la routine RELOCATE 
de Pom's 1. 

2) Plus raisonnablcment, il faut 
prendre un assembleur, 

charger le fichier source, modifier 
simplement (dans la plupart des 
cas) la directive ORG qui fixe 
1'adresse de debut du module 
objet, reassembler et sauver sur 
disque. Vous n'avez pas 
l'assembleur adequat ? La plupart 
des assembleurs permettent de 
sauver les sources sous le format 
des fichiers TEXT classiques ; de 
plus Pom's apublie : 

- les equivalences de directives 
entre assembleurs (Pom's 9) ; 

- une routine de conversion Big 
Mac/Lisa 2.5 (Pom's 10). 

Routine 
(^initialisation 

Vous avci done suuyc sur disque 
le nouveau module objet au 
format ProDOS. II reste k realiser 
la routine dc chargement et 
d'initialisation de ce module. 
Nous avons pu determiner plus 
haut l'algorithme k utiliser : 

1) Chargement k partir du disque 

vers la zone memoire pointee par 

Lomem ($6D-6E) : ainsi nous 
minimisons le risque d'ecraser 
des variables de 1'Applesoft. 

2) Appel de la routine GETBUFR 
du Basic.System (version 1.1 et 
suivantes) avec l'accumulateur en 
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entree contenant le nombre de 
pages desirees. Si la retenue est i 

I en sortie : il n'y a pas de place 
disponible el on ancle. Sinun, la 
place demandee a ete reservee et 
Himem a ete mis a jour par le 
Basic.System (en corollaire, le 
programme ne doit pas lui-meme 
manipuler Himem: eliminez. done 
toute reference aux adresses $73 
et $74). 

3) Recopie du module vers sa 
destination finale. 

4) Evcntucllcmcnt, misc & jourdc 
la carte des pages RAM de 
ProDOS afin que le programme 
ne soit pas ecrase par 
inadvertance. 

5) Enfin, appel eventuel du 
module (si celui-ci se lance 
habituellement par B RUN). 

Qui dit algorithme, dit 
programme. II s'appelle - bien 
sur - DARWIN puisqu'il permet 
de s'adapter a un nouvel 
environnement... 

Et maintcnant la question a cent 
sous : ou va-t-on le placer? 

II n'y a gu£re de choix puisque la 
plupart des emplacements 
possibles ne peuvent etre 
supposes disponibles : notre 
programme d initialisation devra 
sc logcr entre Lomem et Himem. 
En pratique nous allons assembler 
simultanement DARWIN et le 
programme 5 adapter, de mani£re 
a obtenir un unique module objel. 

Methode 
d'utilisation 

Afin d'illustrer la fa$on d'utiliser 
DARWIN, nous allons utiliser en 
exemple un des programmes de tri 
publies par Pom's : 

TRITABLEAU (Pom's 11, p 47). 

Un premier cxamen du source 
indique que ce programme n'est 
pas dependant dc l'evwironncmcnt 
DOS 3.3 sous lequel il a ete congu 
& l'origine. Seule la pr6sence de 
1' Applesoft est necessaire. 

L'assembleur du DOS Tool Kit, 
utilise k l'origine, ne supporte pas 
la notion de fichiers source 



chaines avec laquelle un source 
peut etre scinde en plusieurs 
fichiers distincts. Nous utiliserons 
en consequence Tassembleur Big 
Mac. 

Premiere etape : le fichier 
source est renomme 
T. TRITABLEAU afin de pouvoir 
etre lu par Big Mac. Par un 
assemblage sous la version DOS 
3.3, on remarque que le module 

occupe normalement les adresses 
$9AA6 i $9C3A. Profitons-en 
pour corriger une erreur du source 
TRITABLEAU publie dans 
Pom's : les lignes 30 et 32 
doivent etre interverties. 

Deuxieme etape : La ligne 28 
du source, qui contient la directive 
OBJ, doit maintenant Stre 
supprimee : l'adressc dc debut 
d'assemblage sera determinee par 
DARWIN. C'est la seule 
modification necessaire pour 
TRITABLEAU. Le source est & 



nouveau stocke sur disque sous 
forme dim fichier TEXT. 

Troisieme etape : on charge 
sous Big Mac le source 
DARWIN.S ; la demifcre ligne 
doit etre modifiee pour contenir le 
nom du programme & adapter, en 
Toccurence TRITABLEAU. 

Quatrieme etape : placer la 
disquette contenant le fichier 
T.TRITABLEAU dans le lecteur 
courant. Demandons un 
assemblage : aussit6t, 1'utilisateur 
doit indiquer la valeur des 
variables DARWIN D et 
DARWIN_F et VA_DEBUT ; 
DARWIN D represente l'adresse 
de debut sous DOS 3.3, en 
l'occurence $9AA6. DARWIN JF 
est l'adresse de fin, done S9C3A. 
VA DEBUT indique si Yon doit 
ou non sauter au programme 
aprfes son chargement ; comme 
TRITABLEAU est normalement 
charge par un BRUN sous DOS 



Programme TRI TA BLEA U. DEMO 

1 REM TRITABLEAU. DEMO A. Avrane 
10 D$ = CHR$ (A) 

15 PRINT D$ "BRUNTRITABLEAU, A "256 * ( PEEK (110) 
f 5) : REM laisse au moins $400 octets llbre 

s 

20 TEXT : HOME : PRINT D$"PR#3" 

25 PRINT "DEMONSTRATION DE TRI RAPIDE SOUS PROD 
OS" 

30 DIM A$ (20) f A(20) 

35 INVERSE : PRINT "Indice- Element": NORMAL 
40 FOR I - 2 TO 20 
50 FOR J = 1 TO 12 

60 A$(I) = A$(I) f- CHR$ (65 + 25 * RND (1) ) 

70 NEXT :A(I) = I 

80 GOSUB 900: NEXT 

100 & T,0,A$(1) ,A$ (20) ,A(1) 

105 HTAB 20: VTAB 2: INVERSE : PRINT "Tri sur 1 

er octet": NORMAL 
110 FOR I - 2 TO 20 
120 HTAB 20: VTA3 1 + 2 
140 GOSUB 900: NEXT 
200 & S,12,0,A$(1),A$(2Q),A(1) 

205 HTAB 40: VTAB 2: INVERSE : PRINT "Tri sur d 

ernier octet": NORMAL 
210 FOR I = 1 TO 20 
220 HTAB 40: VTAB 1+2 
230 GOSUB 900: NEXT 
240 END 

900 PRINT RIGHT$ ("0" + STR$ (A(I)),2)"- "A$ ( 
I) : RETURN 
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3.3, il faut domier la valeur 1 ; et 
la valeur pour un BLOAD. La 
suite de l'assemblage charge en 
overlay le source T.TRITA 
BLEAU et assemble les deux 
sources. II ne reste plus qu'ii 
sauver stir disque ce module objet 
sous le nom TRITABLEAU. 

Cinquieme etape : modifier 
l'appel I TRITABLEAU du 
programme Applesoft qui 
Putilise. Le format d'appel 
devient : 

PRINT CHR$(4) "BRVN 
TRITABLEAU, A" 256 * 
(PEEK (110) + 5) 

et charge le module dans une zone 
libre, au dessus des variables 
numeriques de 1' Applesoft et d'un 
buffer de $400 octets utilise par 
GETBUFR. 

Fonctionnement de 
DARWIN 

L'essentiel a dej£ €\€ dit du 
fonctionnement de DARWIN. On 
peut cependant remarquer que 
celui-ci est ecrit sous Big Mac et 
en utilise les directives KBD 
(saisie de la valeur d'une variable 



par l'utilisateur) et PUT (lecture 
d'un fichier source). Ces 
directives sonl transposables sans 
difficultes pour Lisa, ED ASM 
ProDOS, etc. 

La version actuelle suppose un 
appel au programme reloge afin 
de I'initialiser. Dans le cas 
contraire, il suffit de placer un 
RTS au lieu du JMP indirect final. 
DARWIN est bien entendu 
enticement relogeable puisque 
1'on ignore son adresse 
d'implantation. Enfin, la carte des 
pages memoire protegees n'est 
pas mise a jour : cela n'est 
necessaire que si Ton craint une 
interaction avec d'autres 
programmes assembleur. 

A l'execution, le message 
PROGRAM TOO LARGE est 
genere si le Basic.System utilise 
sous ProDOS est anterieur a la 
version 1.1, s'il est impossible de 
trouYer suffisamment de place en 
memoire vive pour reloger le 
programme, ou enfin si on tente 
d'executer DARWIN sous DOS 
3.3. 

Un petit programme de 
demonstration montre les tris d'un 
tableau de chaines de caract&res, 



avec la cle en premiere ou derni&re 
position de chaque chame. 
Reportez-vous h Pom's 11 pour 
les syntaxes d'appel a la routine. 

La disqucttc Pom's contient les 
fichiers suivants : 
DARWIN.S 

source en format Big Mac 
T.DARWIN 

source en format TEXT pour 

conversion vers d'autres 

assembleurs 
T.TRITABLEAU 

source en format TEXT 

(appele par l'assemblage de 

DARWIN.S) 
TRITABLEAU 

module executable sous 

ProDOS 
TRITABLEAU.DEMO 

programme Applesoft de 

demonstration (en 80 co- 

lonnes). 

a 



Programme DARWIN.S 

(Assembleur Big Mac) 

MB : Ce programme figure sur la 
disquwe a~accompagnemeni igalemew 
sous formal TEXT. II est nommi 

1 *************************** 

2 *■ DARWIN * 

3 r it* ww x irr xxxx w*xx* xx trxx x hi jt 

4 

5 * Routine d ' initialisation d ProDOS 

6 r d'un programme assembleur DOS 3.3 

7 

8 * (C) 1965 Alexandre Avrane 

9 r Moaiile: 24/11/8$ 

10 * Cr6e: 16/11/85 
11 

12 r Ce source est assemble en conjonction 

13 * avGn Je prngramme A adapter PrnDOS 
14 

lb DARWIN D KBD ;adr debut DOS 3. 3 

16 DARWIN_F KBD ;adr fin DOS 3.3 

.17 VA_DEBUT KBD ; saute en d6but de 

pgm apres 
chargement? 

18 

19 * Calcul des adresses sous ProDOS 

20 DARWJNV1 - DARWIN F/$10Q+1 



21 DARHINV2 - DARWIN_D/S100 

22 DARWINV3 = DARWi N VI —DAK Wi NV2 

23 DARWINV4 - $100*DARmNV2 

24 DARWINV5 - DARWIN_D DAIWINV4 

25 DARK I NV 6 - DARWTNV3*S100-DAXW1NV5 

26 

27 DARWIN_A - $ 9A00-DARWINV6 /ad debut ProDOS 

28 DARWIN_L - DARW1N_F-DARW1N_D+1 ; lg ProDOS 
29 

30 ORG DARWIN_A-73 /DARWIN - 72 octets 

31 

32 * - — — - - - . ,, , I 

33 * 1 - Recherche de la place memoire 

34 * ■ ■■ ■ ■■■■i . . - .in i m — ==== 

35 IDA $BFFD IVERSION 

36 BEQ DARWIN10 Basic. System 1.0 

37 IDA *0-DARWIN_A/$l 0Ot$9B 

38 JSR $BEFS GETBUFR 

39 BCC DARWIN11 

40 DARWIN10 IDA 914 PROGRAM TOO LARGE 

41 JMP $BE09 

42 DARWTN11 - * 
43 

44 * ; 

45 * 2 - Copie vers l'adresse d' implantation 

47 DARWIN20 JSR $FF58 contient un RTS 

48 TSX 

49 DEX 

50 CLC 
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51 


LDA 


52 


ADC 


53 


STA 


54 


LDA 


55 


ADC 


56 


STA 


57 


LDA 


58 


ADC 


59 


STA 


60 


LDA 


61 


ADC 


62 


STA 


63 


LDA 


64 


STA 


65 


PHA 


66 


LDA 


67 


STA 


68 


PI1A 


69 


LVY 


70 


JSR 



71 

72 

73 
74 
75 
7C 
77 
78 
79 
80 

81 
82 



$100, X recherch sur la pi In 

1 VAFWIN 9 9-DARWIN20-2 ;adres$e c* 

ebut routine 
$3C AJ 
$101, X 

to 

$3C*1 

$3C adresse de Cin 

t<DARWIN_L 

$3E A2 

$3C*1 

*>DARWIN_L 
$3E*1 

t<DARWIN_A adresse d'arriv^e 
$42 A4 

*>DARWIN A 
$42+1 

to 

SFEPC deplace Je bloc 

par MOVE 



3 - Appel du module et sortie 



PLA 

STA 

PLA 

STA 

DO 

JMP 

ELSE 
RTS 



$42*1 
$42 

VA_DEBUT 
($42) 



saute en debut de 
programme . . . 

. . .ou retour a 

1 'Applesoft 



83 NOP 

84 NOP 

85 FIN 

86 DARWIN99 - - 

87 * Inclut Je source du programme & adapter 

(format TEXT) 

88 PUT TR I TABLEAU 

89 END 



Programme T.TRITABLEAU 

(Assembleur BigMac) 

NB : Souvegorder ce source sous formal TEXT (V oir texte) 



" Flag r£el . enilei 

* Indice du tri 

* Ecart entre 

articles 

" Ecart indice 
at tri 

* Pointeur ler 
Element du tri 

* Pointeur dernier 
element 

'Pointeur temporaice 

+Pointe ur t empora 1 rc 

'Pointeur temporaire 

•*Pointeur temporaire 
"Pointeur ler 
614m&nt COtableau 

* Pointeur COtableau 

* Pointeur COtableau 

* Ecart ler tableau 



1 


FLAG 


EQU 


$6 


2 


IND 


EOU 


$9 


3 


ECART 


EQU 


$7 


4 


ECO 


EOU 


$8 


5 


START 


EQU 


$19 


$ 


FIN 


EQU 


$1B 


7 


AP.T1 


EOU 


$FA 


8 


ART 2 


EQU 


$FC 


9 


CHA2 


EQU 


SFE 


10 


MOVE 


EQU 


SIR 


11 


CSTART 


EQU 


$E0 


12 


CART1 


EQU 


$E2 


13 


CART 2 


EQU 


$E4 


14 


TECART 


EQU 


$1D 



15 


TECO 


EQU 


$E6 


16 


CECART 


EQU 


$E7 


17 


PARTIEL 


EQU 


$E8 


18 


SARA 


EQU 


$9B 


19 


CHRGET 


EQU 


$B1 






mil 




21 


FRMNUM 


EQU 


$DD67 


22 


CHKCOM 


EQU 


SDEBE 


23 


MQVFM 


EQU 


$EAF9 


24 


SOUST 


EQU 


$EBB2 


25 


GET ADR 


EQU 


$E752 


26 


PTRCET 


EQU 


SDFE3 


27 


* ORG S9AA6 


indlquc 3 


28 


* 


-Initialisation 


29 




LDA 


t<ST 






STA 


$3F7 


31 




LDA 


f>ST 


32 




STA 


$3F6 


33 




RTS 












34 








35 


ST 


CMP 


f$54 


36 




BEQ 


TRI 


37 




CMP 


t$53 


38 




BEQ 


SORT 


39 




JMP 


$DEC9 


40 


SORT 


JSR 


CHRGET 


41 




JSR 


CHKCOM 


42 




JSR 


FRMNUM 


43 




JSR 


GET ADR 


44 




DEY 




45 




DEY 




46 




STY 


PARTIEL 


47 




JMP 


TS 


48 


TRI 


LDA 


?$FF 


49 




STA 


PARTIEL 


50 




jsr 


CHRGET 


51 


TS 


JSR 


CHKCOM 


52 




JSR 


FRMNUM 


53 




JSR 


GET ADR 


54 




STY 


IND 


55 




JSR 


CHKCOM 


56 




JSR 


PTRCET 


57 




5TA 


START 


58 




STA 


ART1 


59 




STY 


START* 1 


60 




STY 


ART1+1 


61 




JSR 


CHKCOM 


62 




JSR 


PTRCET 


63 




STA 


FIN 


64 




STY 


FIN+1 


65 




JSR 


CALCUL 


66 




LDA 


ECO 


67 




STA 


TECO 


68 




LDA 


ECART 


69 




STA 


TECART 


70 




STX 


FLAG 


71 




JSR 


CHRGOT 


72 




CMP 


f$2C 


73 




BNE 


DEBUT 


74 




JSR 


CHRGET 


75 




JSR 


PTRGET 


76 




STA 


CSTART 


77 




STA 


CART1 


78 




STY 


CSTART+1 


79 




STY 


CART1+1 


80 




JSR 


CALCUL 


81 




LDA 


ECART 


82 




STA 


CECAHT 


83 


* 


-Debut 


du tri — 



* Ecart 616mont lor 

tableau 

* Ecart COtableau 

" Pointeur du 
tableau 



* Evalue dans FAC 

* Teste ', ■ 

* Transfer? m vers 

FAC 

* FAC - ARG 

* Rend en tier FAC 

1 'assemblage de DARWIN 
AMPERSAND 



Debut du programme 
* 'j 1 



SYNTAX ERROR 



* Rend FAC entier 

* Indice du tri 



* Initialise 

point eurs 



* COTABLEAU ? 

* Nun 
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84 


DEBUT 


IDA 


SO 




85 




STA 


IND 


* Flag d' dchange 


86 


SUIVANT 


CLC 




* calcul adresse 
2&me article 


87 




LDA 


TEC ART 




88 




ADC 


ART1 




89 




STA 


ART2 




90 




LDA 


40 




91 




ADC 


ART1+1 




92 




STA 


ART2+1 




93 




CLC 




* Calcul adrcssc 


2eme 


article 








9 A 




MA 


CECART 




95 




ADC 


CART1 




96 




STA 


CART 2 




97 




LDA 


90 




98 




ADC 


CART1+1 




99 




STA 


CART2+1 




100 




LDA 


FLAG 




101 




CMP 


95 


* Reel ? 


102 




BEQ 


REEL 


* Oui 


103 




TAY 






104 




DEY 






105 




CMP 


t2 


* Entler 7 


106 




BEQ 


ENTIER 


* OUT 


107 




LDA 


(ART1 ) , Y 




108 




STA 


MOVE+1 




109 




LDA 


(ART2) , Y 




110 




STA 


CHA2+1 




111 




DEY 






112 




LDA 


(ART! ) r Y 




113 




STA 


MOVE 




114 




LDA 


(ART2) , Y 




IIS 




STA 


CHA2 




116 




LDY 


PART IE L 




117 


COMP 


TNY 






118 




LDA 


(CHA2) , Y 




119 




CMP 


(MOVE) , Y 




120 




BCC 


DEPL 


* CHA2 < CHA1 


121 




BNE 


RIEN 


* CHA2 > CHA1 


122 




CP I 


#15 


* Profondeur du til 


123 




RCC 


COMP 




124 




BCS 


RIEN 




125 


ENTIER 


SEC 






126 




LDA 


(ART?),Y 




127 




SBC 


(ART1) , Y 




128 




DEY 






129 




LDA 


(ART2) , Y 




130 




SBC 


(ART1) , Y 




131 




BPL 


RIEN 


* ART2 - OU > ART1 


132 




BMI 


DEPL 


* ART? < ART1 


133 


* 




article i 


234 


BOUCLE 


LDA 


CSTART 


* ler article 


135 




STA 


CART1 




136 




LDA 


CSTART+1 




137 




STA 


CART1+1 




138 




LDA 


START 


* ler article 


139 




STA 


ART1 




140 




LDA 


START+1 




141 




STA 


APT1+1 




142 
143 
144 


* 


BNE DEBUT 
•Article sulvant 




SUITE 


LDA CART 2 


* Article suivant 


145 




STA 


CART1 




146 




LDA 


CART2+1 




147 




STA 


CART1 tl 




148 




LDA 


ART 2 


* Article sulvant 


149 




STA 


ART1 




150 




LDA 


ART2i-l 




151 




STA 


ART1+1 




152 




BNE 


SUIVANT 




153 




•Test 


de fin du 


tri 


154 


MEN 


LDA 


ART 2 





155 




CMP 


FIN 


156 




BNE 


SUITE 


157 




LDA 


ART2+1 


m E ft 

158 




CMP 


r? tit ■ i 
e 1N+1 


159 






p r? 7" Tr 1 


160 




LUn 


Ti»m 

Iciu 


161 




BNE 


BOUCLE 


162 




RTS 




163 














164 


REEL 


LDA 


ART 2 


165 




LDY 


ART2 + 1 


166 




JSR 


MOVFM 


167 




r n n 

LDA 


ARJ1 


168 




LDY 


ART1 + 1 


169 




JSR 


SOUST 


170 




BPL 


RIEN 


171 




- -Deplacomcnt 


172 


DEPL 


SEC 




173 




LDA 


ART1 


174 




SBC 


TECO 


175 




STA 


ART1 


176 




LDA 


ART1+1 


177 




SBC 


to 


1/8 




STA 


ART1+1 


1 79 




SEC 




180 




LDA 


ART 2 


181 




SBC 


TECO 


182 




STA 


MOVE 



* ART2 dans FAC 



- ART 2 - ART1 

* ART2 - ou > ART1 
polnteurs 

* Calcul element 
de ART1 



* Calcul element 
de ART 2 



e ][+» He 



Thierry Haurie 



D est inutile de presente* le jeu de dominos; ceiui-ci beneficie d'un 
graphisme tres soigne (en couleur si vous disposez d'une carte 

"Chat Mauve") et les messages traasmis par lc programme sont, 
au choix, en Francais, en Italien, en Allemand ou en Anglais. 




E3 mm em tsm 

^8 sus on? 



^pO.OO F TTC franco 
Bon de commaridc page 74 
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183 




LDA 


ART2+1 




184 




SBC 


to 




185 




STA 


MGVE+1 




» n /~ 

186 




LDY 






187 




DEY 






188 




STA 


IND 


* PvslLlQlilltif £i^9 


189 


SWAP 




(AHT1) , 1 




190 




PHA 






191 




LDA 


(MOVE) , r 




292 




£ i/i 


IARL1) , I 


* BCiiBUgB 2 Qans 1 


2 9.? 




PLA 






194 




STA 


(MOVE) , I 


i. J I. 1 .] _ 1 

* ec/id/jyy 2 wuts 2 


^ ft r 




DEY 






196 




BPL 






t ft ~r 
1 y f 




hUl 






inn 

1 9ft 




n r*/"\ 

BEQ 


RIbN 




199 




DEY 






200 


SWAP1 


LDA 


(CAHll) , I 




201 




PHA 






202 




LDA 


(CART2) , Y 




203 




STA 


(cartij , r 


« ecnange 2 dans 1 


70A 




PLA 






1/1 K 




i fA 


(CAM 12) , I 


■ ecnange 1 dsns 2 






I 










SPL 


SWAP1 




20S" 




BMI 


RIEN 




20? 




— Sous 


programme 


recherche poinceurs 


21(7 


CALCUL 


LDX 


4 $3 




22 J 




BIT 


$11 


* Chaino ? 


222 




BMI 


DIM1 


* Oul 


22J 




LDX 


*$5 




22 4 




BJT 


$81 


* i?£?el ? 



"114, 


nnr 

ofL 


n rut 




CJUI 


X / n 


t n y 

lAtA 










t n v 
LiUI 






Dimension ? 


7 7 fl 
£ i o 










7 7 


run 

( . 1*1 r* 


JC7 


• 


f J rt /\ f^/\ 1 1 I /^ 7 


77/J 


DPO 


n 7 

LM 








i n y 


i ^ -' 






779 


r n» 






71-/71— 1> »---, 


dimension 










j? i n 7 


Tfl V* 








7 7^ 


t n » 


a r 






OOC 




bCARl 






££ O 


Jin 








^ 3 "J 




/t 1 / - * ■ n*p 












■I- 




articles 


















J' r J" * ■£ 




ADC 


ECAKT 






Oil 










7 3-7 










t ~s a 


BNE 








7 3^ 


rny 

±iu I 


Thin 






^ Jj 




UH 






7 






* 




crj 












i /CA 






C 3 T 


£ J'_- 


ADC 


ECQ 






2J5 


STA 


ECO 






240 


DEY 








242 


BNE 


D3 






242 D4 


RTS 









Programme 

RAM. BITMAP 

60005 TEXT : HOME :Y = 48984: REM 

$BF58 : BITMAP 

60006 P - 0:L - 0: VTAB 9: HTAB Is 
A$ = "0020406080AO": FOR I = 

1 TO 11 STEP 2: PRINT "$" M 
ID$ (A$,I,2); NEXT : VTAB 1 

60007 POKE 33,32; POKE 32,4; PRIN 
T "PAGES MEMOIRE PROTEGEES ( 
PRQDOS) ": PRINT "sur 192 pag 
cs (48K de $00 a $BF) "; PRIN 
T : PRINT SPC( 16) "11111111 
111111110123456789ABCDEF0123 



456789ABCDEF" 
60010 FOR I - TO 23;X - PEEK ( 

Y + I) : REM LES 24 OCTETS D 

E LA BIT-MAP 
60020 FOR J = 1 TO 8: REM LES 8 B 

ITS DE CHAQUE OCTET 
60030 IF X > = 128 THEN X = 2 * 

X - 256:P = P + 1: PRINT "P" 

; : GOTO 60050: REM CAS BIT=1 
60040 X m x * 2:L = L -f 1: PRINT " 

. "/ ; REM CAS BIT-0 
60050 NEXT J: NEXT I: POKE 33 e 40: 

POKE 32 r 0: PRINT 
60055 PRINT "P = proteqee ; au to 

tal : "P: PRINT = libre 

; au total : "L: PRINT 



Recapitulation 

TRITABLEAU 



4000- 


AD 


FD 


BF 


F0 


07 


A9 


03 


20 


4008- 


F5 


BE 


90 


05 


A9 


0E 


4C 


09 


4010- 


BE 


20 


58 


FF 


BA 


CA 


18 


BD 


4018- 


00 


01 


69 


36 


85 


3C 


BD 


01 


4020- 


02 


69 


00 


95 


3D 


A5 


3C 


69 


402Q- 


95 


85 


3£ 


AS 


3D 


69 


01 


95 


4030- 


3F 


A9 


A6 


85 


42 


48 


A9 


97 


4038- 


8ii 


43 


48 


AU 


00 


20 


2C 


r*: 


4040- 


68 


85 


43 


68 


85 


42 


6C 


42 


4048- 


00 


A9 


Bl 


BD 


FS 


03 


A9 


97 


4050- 


9d 


F7 


03 


60 


C9 


54 


FO 


lA 


4058- 


C9 


53 


F0 


03 


4C 


C9 


DE 


20 


4060- 


Bl 


00 


20 


BE D£ 20 


67 


DD 


4068- 


20 


52 


E7 


88 


88 


84 


E8 


4C 


4070- 


nz 


97 


A9 


FF 


85 


re 


20 


Bl 


4078- 


00 


20 


BE 


DE 


20 


67 


DD 


20 


4080- 


02 


E7 


64 


09 


20 


BE 


DE 


20 



4 088- 


E3 


OF 


85 


■ g 


85 


ra 


84 


1A 


4 090 


84 


FB 


20 


BE 


DE 


20 


E3 


DF 


4 098- 


B5 


IB 


84 


1C 


20 


01 


99 


A5 


40A0- 


08 


85 


£6 


A5 


07 


85 


ID 


86 


40A8- 


06 


20 


Bl 


00 


C9 


2C DO 


15 


4080- 


20 


m 


00 


20 


E3 


DF 


85 


EO 


40B8 


85 


E2 


84 


El 


84 


E3 


30 


01 


4 0C0- 


99 


A5 


07 


85 


E7 


A9 


00 


85 


40C8- 


09 


18 


AS 


ID 


bb 


FA 


85 


FC 


40D0- 


A9 


00 


65 


FB 


85 


FD 


18 


AS 


40D8- 


E7 


65 


£2 


85 


E4 


A9 


00 


65 


40E0- 


E3 


65 


E5 


A5 


06 


C9 


05 


FO 


40E8- 


6B 


A8 


00 


C9 


02 


FO 


22 


Bl 


4 0F0- 


FA 


85 


IF 


Bl 


FC 


85 


FF 


88 


40F8- 


Bl 


FA 


85 


IE 


Bl 


FC 85 


FE 


4100- 


A4 


E8 


C8 


Bl 


FE 


Dl 


IE 


90 


4108- 


5B 


DO 


38 


CO 


OF 


90 


F3 


BO 


4110- 


32 


38 


Bl 


FC 


Fl 


FA 


88 


Bl 


4118- 


FC 


i'l 


FA 


10 


26 


30 


45 


A5 


4120- 


EO 


85 


E2 


A5 


El 


85 


E3 


A5 


4128- 


19 


85 


FA 


A5 


1A 


85 


FB 


DO 



4130- 


94 


A5 


E4 


85 


E2 


A5 


E5 


85 


4138- 


E3 


AS 


FC 


85 


FA 


AS 


FD 


95 


4140- 


FB 


DO 


8G 


AS 


FC 


CS 


IB 


DO 


4148- 


E8 


A5 


FD 


C"5 


1C 


DO 


L2 


A5 


4150- 


09 


DO 


CC 


60 


A5 


FC 


A4 


ED 


4158- 


20 


F9 


EA 


A5 


FA 


A4 


FB 20 


4160- 


82 


EB 


10 


DF 


39 


AS 


FA 


ES 


4168- 


E6 


as 


FA 


AS 


FB 


E9 


00 


85 


4170- 


tn 


38 


A5 


bV 


E5 


EfS 


85 


IE 


4178- 


A5 


FD 


E9 


00 


85 


IF 


A4 


ID 


4180- 


88 


85 


09 


Bl 


FA 


48 


Bl 


IE 


4188- 


91 


FA 


68 


97 


7E 


88 


10 


F3 


4190- 


A4 


E7 


FO 


AF 


88 


Bl 


E2 


48 


4198- 


Bl 


E4 


91 


E2 


68 


91 


E4 


88 


41A0- 


10 


F3 


30 




K2 


03 


24 


11 


41A8- 


30 


08 


A2 


05 


24 


81 


10 


02 


4 7BO- 


A? 


02 


AO 


04 


82 


9B 


C9 


01 


41B8- 


FO 


04 


AO 


08 


Bl 


9B 


A8 


A9 


41C0- 


00 


85 


07 


85 


08 


85 


£7 


18 


41C8- 


8A 


bb 


07 


8b 


07 


88 


DO 


F8 


41D0- 


A4 


09 


FO 


09 


18 


8A 


65 


08 


41D8- 


85 


08 


88 


DO 


F8 


60 
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Sylvie Gallet 



Le programme propose 
ici est ecrit en langage 
machine pour des 
raisons ^videntes de 
rapidite et de facilite d'emploi. II 
occupe tr£s peu de place en 
memoirs (moins de 3 pages) et il 
se charge avec RENUMBER car 
il utilise aussi 1'ainpersaiid et 
parce qu'ils semblent faire la 
paire ! 

Bien entendu, ce programme tient 
compte de tous les GOTO, 
GOSUB, ONERR GOTO et 
autres IF,,, THEN. II en profile 
au passage pour supprimer les 
REMs, et raccourcir les noms des 
variables mais il ne raccourcit 
aucune instruction &, 

CALL ou DATA ; en 

effet, la syntaxe de ces 
instructions est elle- 
meme tres variable ! 



donne un resultat different du 
premier : en effet la longueur 
"utile" des lignes est determinee 
avam de raccourcir les variables. 
Ceci peut se produire si les noms 
des variables sont tres longs. 

Un autre detail involontaire, il ne 
touche pas & une eventucllc lignc 
65535, j'ai prefere laisser faire. 

Utilisation 

Pour le charger, faire 
"BRUN COMP+RENUM". 
II se place en $8B00, il descend 
HIMEM et vectorise I'amper- 
sand. 

Pour compacter, faire simple- 
mem : "&COMPACTE". 



Comment faire ? 



Fonctionnement 

II commence par faire un tableau 
de toutes les lignes appelees par 
GOTO, GOSUB et IF. ..THEN 
GOTO. II procede ensuite au 
compactage des lignes apres avoir 
explore chaque ligne pour savoir 
si elle contient un IF, si elle est 
adressee par GOTO, et ses 
acolytes, et pour connaitre sa 
longueur "utile" (c'est-a-dire sans 
les REMs). 

II termine en mettant & jour le 
pointeur de fin de programme. 

II faut noter que dans le cas ou le 
programme n'est pas charge 
comme & l'accoutumee en $801 
(2049), le fonctionnement du 
compacteur n'est pas 
perturbe. 



Les lignes ainsi obtenues 
peuvent contenir jusqu'a 
$F8 (248) caracteres ou 
tokens ce qui deplait 
fortement i RENUM- 
BER et k RLE. Sur la 
plupari des programmes 
que j'ai compactes, j'ai 
note un gain de place 
d'environ 10 i 15 % 
avec des resultats 
spectaculaires sur des 
programmes tres docu- 
ments (Gescompte...) 

Si une ligne ne contenant 
qu'une REM est adressee 
par un GOTO, GO- 
SUB,... il conserve 
ligne avec seulement un 
II est possible qu'un 
deuxieme compactage 



Pour utiliser le compacteur, il suffil de faire; 

"BRUN COMP+RENUM" 
puis pour compacter : 

&COMPACTE 

Pour obtenir le fichier COMP+RENUM, vous 
devrez suivre les etapes suivantes : 

• Si vous n'avez pas la disquette Pom's, saisir 
sous moniteur la recapitulation COMP, puis la 
sauvegarder (BSA VE COMP,A$8B00,L$2FF). 

♦ Executer le programme FAIT EXEC : celui-ci 
cree un fichier EXEC qui va recuperer la partic 
bJnaire du programme RENUMBER de la 
disquette Ma fire DOS 3.3. 

- Faitcs alors EXEC CREE COMP+RENUM, 
■ On vous demande successivement de mettre 
la disquette Maftre contenant RENUMBER, 
puis fa disquette contenant le fichier COMP, et 
enfin la disquette qui recevra le fichier final 
COMP+RENUM. 



Remarque : II a fallu 
faire une petite rustine a 
CHRGET pour quelle 
ne saute pas d'office tous 
les $20 quelle rencontre, 
$20 se trouvant aussi 
bien dans les adresses de 
lignes que dans les 
numeros de lignes. 

Le lecteur pourra 
certaincmcnt apportcr les 
petites modifications 
ncuessaires pour obtenir 
un programme encore 
plus court : lorsque la 
ligne adressee par un 
GOTO ou un GOSUB ne 
comprend qu'une REM, 
pourquoi ne pas se 
brancher sur la ligne 
suivante par exemple ? 
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Programme 

FAIT EXEC 

10 TEXT : HOME : SPEED^ 255 :D$ - CM 
R$ (4) 

100 VTAB 12; PRINT " CREATION DU FI 

CHIER CREE COMP+RENUM" 
120 NOM$ = "CREE COMP+RENUM" : PRINT D 

$ n OPEN"NOM$: PRINT D$ "WRITE "NOM$ 
130 PRINT "TEXT : HOME : SPEED=255 " 
140 PRINT "PRINT"; CHR$ (34) / "IN SERE 

Z LA DISQUETTE CONTENANT RENUMBER 

"; CHR$ (34) ; " :PRINT" ; CHR$ (34); 

"PUIS PRESSEZ UNE TOUCHE"; CHR$ { 

34);": WAIT -16384 , 128 :POKE -1636 

8,0" 

160 PRINT "LOAD RENUMB&R" 

164 PRINT "POKE 2968,96: POKE 2792,1 
69: POKE 2793, 200 :POKE 2800, 169 :P0 
KE 2801 f 10:CALL 2791 " 

165 REM SORTIE DE RENUMBER 

PAR RTS AU LIEU DE JMP $T)64B (EN 
$B98) 

167 REM MOD IF DE RENUMBER 

168 REM $AFO:LDA $7 A REbfPLACE 

PAR LDA #$0A ET $AE8 : LDA $79 REM 

PLACE PAR LDA #$C8 
170 PRINT "PRINT"; CHR$ (34) ; "INS ERE 

Z LA DISQUETTE CONTENANT COMP"; C 

HR$ (34) ;":PRINT n ; CHR$ (34);"PUI 

S PRESSEZ UNE TOUCIIE"; CHR$ (34); 

": WAIT -16384, 128 :POKE-16368,Q" 
190 PRINT "BRUN COMP" 
195 PRINT "PRINT"; CHR? (34) ;"INSERE 

Z LA DISQUETTE QUI CONTIENDRA 
COMP+RENUM"; CHRS (34) ; " :PRINT"; 
CHR$ (34); "PUIS PRESSEZ UNE TOUC 

HE"; CHR$ (34);": WAIT -16384,128 

:POKE-l 6368,0" 
235 PRINT "BSAVECOMP+RENUM,A$8B00,L$ 

BOO" 

240 PRINT D$ "CLOSE" NOM? 



Un exernple 

Le programme 'Agenda', publie page 8 do ce numero. 

AVANT : 1311 octets APRES : 858 octets 
(Gain 34 %) 



10 HOME : ONERR GOTO 570 

tOO PRINT ' COMPOSITION AUTOMATIQUE DE': PRINT ' 
NUMERO TELEPHONJQUE": PRINT CHR$ (4); m BLOA 
DCOMPOSEUR": DIM T$d00,2) 
140 N -0 

150 N*N + U FOR J - 1 TO 2. READ T$(N,J): NEXT J: GOTO 
150 

200 VTAB (8): PRINT 'Utilisez les fldchos ";: INVERSE : PRINT ' 
=j>";: NORMAL : PRINT ' et ";; INVERSE : PRINT '<-": NOR 
MAL : PRINT "pour selectionner fe norn de I'abonnti": PRINT 
: PRINT 'Validez avec fa louche RETURN':! « 

250 GET A$ 

260 A% « ASC (AS)- IF A% < > 13 AND A% < > 21 AND A% 

< > 8 THEN 260 

280 iFA%* 13 THEN 360 
290 IF A% - 21 THEN /= /+ J 
300 IF A% = 8 THEN I - / - / 
310 IFI>N-1 THEN I = N- 1 
320 IF I < 1 THEN I - 1 

330 VTAB 15: CALL - 868. PRINT T$(I,1),T$(I,2): GOTO 250 
360 X$ = T$(l,2): POKE 49241,0: FOR I = 1 TO 700: NEXT I: HO 
ME : PRINT : PRINT 'Je compose le numdro ';: FOR I - 1 
TO LEN (X$):A = ASC ( MIDS (X$J, 1)) * 128: POKE 7,A: 
CALL 768: PRINT CHR$ (A);: FOR T = 1 TO 600: NEXT T 
: NEXT I: HTAB 1: VTAB 5: PRINT 'D4crochez le combine', 
maintonant... VTAB 8: PRINT m .....avant': FOR I - 400 TO 
f STEP - 1: VTAB (15): HTAB (11). PRINT INT (t / 50);* 
secondes": NEXT I: POKE 49240,0: GOTO 580 
570 IF PEEK (222) = 42 THEN 200 

580 HOME : RESTORE : PRINT '...Pret pour un autre appol ...": 
GOJO 140; DATA RENSEIGNEMENTS.3612: DATA AUTRES 
RENSEIGNEMENTS. 3611: DA TA JULIETTE. 12345678 



NDLR : Une ligne telle que la n " 360 de ce programme 
compact^ ne manquera pas de vous poser des problemes si 
vous voulez la modifier maintenant. Pour ceue raison, il est 
sage de ne pas se siparer du programme original 

Si vous avez male.nr.ontreusement perdu votre version non 
compactee, vous utiliserez avec intSret le DECRUNCHER 
de Patrice Neveu que nous publierons prochainemenu 



Recapitulation 
COMP 



8B00- 


A9 


4C 


8D 


FS 


03 


A 9 


14 


8D 


8B08- 


F6 


03 


85 


73 


A9 


8B 


8D 


F7 


RB1 0- 


03 


R5 


74 


fit) 


C9 


43 


F0 


0.1 


8B13- 


4C 


00 


8E 


AO 


00 


CO 


07 


BO 


nnpn- 


OR 


P0 


R7 


00 


09 


34 


BR 


DO 


8B28- 


08 


C8 


DO 


Fl 


20 


Bl 


00 


F0 


8B30- 


OA 


4C 


C9 


DE 


4F 


4D 


50 


41 


8B38- 




54 


45 


A5 


67 


85 


B8 A5 


8B40- 


es 


85 


B9 


AO 


01 


Bl 


67 


DO 


8B48- 


03 


4C 


CI 


8B 


Ab 


AF 


18 


69 


8B50- 


05 


85 


FE 


A5 


BO 


69 


00 


85 



8B58- 


FF 


AO 


00 


A9 


EA 


85 


CO 


85 


9B60- 


CI 


20 


B7 


00 


20 


Bl 


00 


C9 


8B68- 


00 


DO 


OC 


A9 


FF 


AO 


00 


91 


8B70- 


FE 


C8 


91 


FE 


4C 


F9 


8B 


20 


8B78- 


Bl 


00 


20 


Bl 


00 


20 


Bl 


00 


QDQO- 


C9 


00 


DO 


06 


20 


Dl 


00 


4C 


8B88- 


5B 


8B 


C9 


AB 


F0 


OF 


C9 


BO 


8B90- 


F0 


OB 


C9 


C4 


DO 


E7 


20 


Bl 


8B98- 


00 


BO 


E5 


90 


03 


20 


Bl 


00 


8BA0- 


20 


0C 


DA 


48 


A5 


50 


AO 


00 


8BA8- 


91 


FE 


E6 


FE 


DO 


02 


E6 


FF 


8BB0- 


A5 


51 


91 


FE 


E6 


FE 


DO 


02 


8BB8- 


F.6 


FF 


68 


C9 


PC 


F0 


OF. 


DO 


8BC0- 


BF 


AO 


00 


B9 


Dl 


8B 


FO 


06 


8BC8- 


20 


5C 


DB 


C8 


DO 


F5 


4C 


B3 


8BDO- 


FE 


0D 


0D 


2A 


2A 


20 


07 


50 


8BD8- 


41 


53 


20 


44 


45 


20 


50 


52 



8BE0- 


4F 


4 1 


52 


41 


41) 


4D 


45 


20 


8BE8- 


45 


4E 


20 


4D 


45 


4D 


4F 


49 


8BF0- 


52 


4b 


20 


2A 


2A 


OD 


OD 


00 


8BF8- 


A5 


68 


85 


B9 


85 


EF 


A5 


67 


8CO0- 


DO 


02 


C6 


B9 


18 


69 


t'F 


85 


8C08- 


B8 


DO 


02 


C6 


EF 


18 


69 


FF 


8C10- 


85 


EE 


A9 


00 


85 


EB 


A9 


03 


8C18- 


85 


EC 


05 


19 


85 


18 


20 


D8 


8C2Q- 


8C 


20 


Bl 


00 


85 


ID 


20 


Bl 


0C20 


00 


05 


IE 


20 


12 


3D 


20 


49 


QC30- 


3D 


A5 


19 


DO 


42 


A5 


1C 


DO 


8C3Q- 


3D 


A5 


1A 


FO 


70 


A5 


18 


FO 


8C40- 


4F 


C9 


F8 


BO 


31 


18 


65 


1A 


8C48- 


BO 


04 


C9 


F8 


90 


35 


A5 


IB 


8C50- 


DO 


24 


A9 


F8 


38 


E5 


18 


85 


8C58- 


F9 


20 


69 


8D 


A5 


FC 


FO 


1 6 


8C60- 


A2 


00 


86 


06 


86 


07 


A9 


3A 
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Programme COMPACTEUR 

(Assemhleur Lisa 2.5) 



1 








2 


******* 


3 


* 




* 


4 


* COMPACTS UN * 


5 


* PROGRAMME 


BASTC * 


e 


* ET SUPPRIME LES * 


7 


* REMARQUE5 


8 


* S.GALLET 24-8-85 * 


9 

10 






* 








11 








12 


CHRGFT 


FP5? 




13 




or l. 


SR7 


1 4 


I'll /it" 


Eitr £> 


9 C r 


15 


TXTPTR 


EPS 


5B8 


16 


TEMP 


EPZ 


$FD 


1 7 


7*apr pan 


ppy 


IFF 


18 


GOTO 


EPZ 


SAB 


19 


tj{JjUD 


PP7 

L/C C 


CD/1 


20 


THEN 


EPZ 


SC4 


21 


f'A R Ft 'R 


Cjf £. 


< 00 

•? CjC 


22 


Li 


Zisr u 


SFQ 


23 


UL, UsK C 1 


PPP 
L/C a 


SFC 
•ft i— 


24 


TS 


FP7 


r — — 


75 


T.CT.ONG 


FP7 


S 1 ft 
m? i n 


26 


if 


pp? 

L/C €m 




27 


T.I LONG 


FP7 
L/C Im 


SI A 


28 




PD? 


? its 


29 


IS GOTO 


EPZ 


SIC 


30 


NtlM R 
JVwfl. D 


FP? 

L>C £• 


V il> 


31 


ftvn ■ h 


Cri ft 




32 


a* 


EPZ 


5 AD 


33 


REM 


EPZ 


5B2 


34 


AMPRS 


EPZ 


SAF 


35 


CALL 


EPZ 


SflC 


Ifi 


DATA 


EPZ 


SRI 


37 


PRGEND 


EPZ 


SAT 


38 


IMAX 


EPZ 


$F8 


39 


ONERR 


EPZ 


$A5 


40 


L1NNUM 


EPZ 


550 


41 


HIMEM 


EPZ 


573 


42 


TEMPI 


EPS 


90S 


43 


TEMP 2 


EPZ 


507 


44 


AMPER 


EOU 


S03F5 


45 


DASIC 


EQU 


SFED3 


46 


LINGET 


ECU 


SDAOC 



/TOKEN DE S 



47 RENUMBER 

48 STXERR 

49 OUTDO 

50 ; 

51 ; 
52 
53 

54 ; 

55 A: 

56 ; 
57 
53 
59 
60 
61 
62 
63 
64 
65 

66 ; 

67 TEST: 



EQU S8E00 
EQU 5DEC9 
EQU SD-BSC 



ORG SffBOO 
OBJ SBOO 



LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 

STA 
RTS 



iS4C 
AMPER 
iTEST 
AMPER'-l 
HIMEM 
/TEST 
AMPER I 2 
HIMEM* 1 



68 




CMP 


I'C 


69 




BEQ 


>1 


70 




.IMP 


RENUMBER 


71 


*1 


WY 


t$o 


72 


"2 

* 


CPY 


tS7 


73 




3CS 


>J 


74 




JSR 


CHRGET 


75 




CMP 


COMMANDE, Y 


76 




BNE 


>4 


77 




INY 




78 




BNE 


<2 


79 


'3 


JSR 


CfiRGET 


80 




BEQ 


IN1T 


81 


"4 


JMP 


STXERR 


82 


COMMAND E 


ASC 


•OMPACTE ' 


83 


s 






84 


IN IT: 






85 




LDA 


TXT TAB 


86 




STA 


TXTPTR 


87 




LDA 


TXTTAB+1 


88 




STA 


TXTPTR +1 


89 




TJ1Y 


#51 


90 




LDA 


(TXTTAB) , Y 


91 




BNE 


>0 


92 




JMP 


PAS PROG 


93 


~0 


LDA 


PRGEND 


94 




CLC 




95 




ADC 


455 


96 




STA 


TABLEAU 



8C63- 


20 


9? 


8D 


E& 


18 


C6 


1A 


20 


8C70- 


Bl 


00 


C6 


FC 


DO 


F2 


20 


B7 


8C78- 


8C 


20 


04 


8D 


A9 


00 


85 


18 


8C80- 


4C 


90 


8C 


AO 


00 


AS 


3A 


Dl 


8C8S- 


EE 


FO 


05 


20 


F7 


RD 


Efi 


1ft 


8C90- 


A5 


IB 


85 


19 


A2 


00 


86 


06 


8C98- 


86 


07 


20 


Bl 


00 


C9 


00 


FO 


8CA0- 


13 


C9 


B2 


FO 


08 


20 


97 


8D 


8CA8- 


E6 


19 


4C 


9A 


8C 


20 


Bl 


00 


8CB0- 


C9 


00 


DO 


F9 


4C 


IE 


8C 


A5 


8CB8- 


18 


DO 


05 


A9 


3A 


20 


F2 


8D 


8CCV- 


h9 


OQ 


20 


F2 


QD 


20 


FZ 


SD 


8CC8- 


A5 


EE 


91 


EB 


C8 


A5 


EF 


91 


8CD0- 


EE 


8b 


EC 


Ab 


EE 


8b 


EB 


61/ 


8CD8- 


20 


Bl 


00 


20 


Bl 


00 


C9 


00 


8CE0- 


DO 


21 


20 


B7 


8C 


A9 


00 


20 


8CE8- 


F2 


80 


20 


F2 


8D 


20 


F2 


8D 



8CF0- 


A5 


EE 


85 


AF 


AS 


EF 


85 


BO 


8CF8- 


A9 


FO 


85 


CO 


A9 


EF 


85 


Cl 


8DQ0- 


4C 


B3 


FE 


60 


20 


F2 


8D 


A5 


8D08- 


ID 


20 


F2 


8D 


A5 


IE 


20 


F2 


8D10- 




60 


A 5 


AF 


18 


69 


04 


85 


8D18- 


FE 


A5 


BO 


69 


00 


85 


FF 


AO 


8D20- 


00 


20 


40 


8D 


C5 


ID 


FO 


OC 


8D2H- 


20 


40 


3D 


C9 


FF 


DO 


F2 


A9 


8D30- 


00 


85 


1C 


60 


20 


40 


an 


C.S 


8D38- 


IE 


DO 


FO 


A9 


01 


85 


1C 


60 


8D4 0- 


E6 


FE 


DO 


02 


E6 


FF 


Bl 


FE 


QD48- 


60 


AO 


00 


84 


IB 


84 


1A 


C8 


8D50- 


Bl 


B8 


FO 


11 


C9 


B2 


FO 


0D 


UBbij- 


cy 


AD 


FO 


04 


C9 


A5 


DO 


02 


8D60- 


84 


IB 


C8 


DO 


EB 


88 


84 


1A 


8D68- 


60 


AO 


00 


84 


FD 


84 


FC 


C8 


8D70- 


Q4 


F9 


BO 


22 


Bl 


B8 


FO 


IE 



8D78- 


C9 


22 


DO 


09 


A5 


FD 


49 


01 


8DQ0- 


85 


FD 


4C 


8F 


8D 


C9 


3A 


DO 


8D88- 


06 


A5 


FD 


DO 


02 


84 


FC 


C8 


8D90- 


C4 


F9 


90 


EO 


FO 


DE 


60 


85 


8D98- 


FD 


C9 


83 


FO 


08 


C9 


AF 


FO 


8DA0- 


04 


C9 


8C 


DO 


07 


A9 


01 


85 


8DAR- 


07 


4C 


ED 


8D 


C9 


22 


DO 


09 


8DB0- 


A3 


06 


49 


01 


85 


06 


4C 


ED 


8DB8- 


8D 


A5 


06 


DO 


30 


AS 


FD 


C9 


8DC0- 


3A 


DO 


07 


A9 


00 


85 


07 


4C 


8DC8- 


ED 


80 


A5 


07 


DO 


IF 


A5 


FD 


8DD0- 


C9 


30 


90 


19 


C9 


5B 


BO 


15 


8DD8- 


C9 


3A 


BO 


06 


EO 


00 


FO 


0D 


8DE0- 


DO 


04 


C9 


41 


90 


07 


EO 


02 


8DE8- 


90 


OS 


C6 


18 


60 


A2 


FF 


E9 


8UFU- 


A3 


FD 


AO 


00 


E6 


t£E 


DO 


02 


8DF8- 


E6 


EF 


91 


EE 


60 


CA 


CD 
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9/ LDA PRGEND+1 

98 ADC 9$0 

99 STA TABLEAU*! 
100 LDY 9S0 

7 07 ; 

102 f CREE UN TADLEAU DE TOUS LES NUMEROS DE LIGNES 
ADRE55E5 

1 03 ; PAR GOTO, GOSUR ET THEN 

104 i 

105 DEBUT: 

106 LDA t$EA ;UVE PETITE RI1STTNF 

107 STA $C0 ;SUR CHRGET 

108 STA $C1 

109 JSR CHRGOT 

110 JSR CHRGET 
777 CMP tSO 

112 BNE >0 

113 LDA 0SFF 

114 LDY t$0 

115 STA (TABLEAU) , Y 
IIS INY 

117 STA (TABLEAU), Y 

118 JMP COMPACTE 

119 ; 

120 *0 JSR CHRCET 

121 JSR CHRGET 

122 *3 JSR CHRGET 

123 '2 CMP 9$Q 

124 -3 BNE >4 

125 JSR CHRGET 
226 JMP DEBUT 

127 *4 CMP iGQTO 

128 BEQ >5 

129 CMP 9GOSUB 

130 BEQ >5 

131 CMP 9TUEN 

132 BNE <1 
233 JSR CHRGET 

134 BC5 <Z 

135 BCC >6 

136 *S JSR CHRGET 
23/ "6 JSR LIN GET 

138 PHA 

139 LDA LINNUM 

140 LDY 050 

1 41 STA (TAM.EAU) r Y 

142 INC TADLEAU 

143 BNE >7 

2 44 INC TARLF.AU+1 

145 ^7 LDA LINNUM+1 

146 STA (TABLEAU) , Y 

147 INC TABLEAU 
248 ONE >8 

149 INC TABLEAU* 1 

150 *8 PLA 

151 CMP 9%' 

152 BEQ <5 

153 BNE <2 

154 PASPROG LDY t$0 

155 A LDA MSG, Y 
15 6 B£Q >1 
157 JSR OUTDO 
1$8 INY 

159 BNE <0 

160 A l JMP BASIC 

161 MSG HEX 0D0D 

162 ASC *** ' 

163 BEX 07 

164 ASC 'PAS DE PROGRAMME EN MEMOIRS ** ' 

165 HEX 0DOD0O 

166 j 

IS? ; 



168 COMPACTE: 

169 ; 

170 ,• 

171 f LCLONG ET LCIF CONCERNENT LA L1CNE 

172 ; EN COURS D'ECRITURE 

1 73 : LSLONG, LSGOTO F.T LS TF CONCERNENT 

1 74 ; LA LIGNE SUIVANTE 

175 ; 

176 t 

177 ;AU DEPART, 51 LE PROGRAMME BASIC 

178 .'EST IMPLANTS EN $801 : 

179 / - CHRCET ■ $800 

180 ; - CAR . tfCS = $7FF 

181 ; 

182 ; 

183 LDA TXTTAB-t-1 
194 STA TXTPTR+7 

185 STA CAR.ECR+1 

186 LDA TXTTAB 

187 BNE >0 

188 DEC TXTPTR-H 

189 "0 CLC 

190 ADC 9$FF 

191 STA TXTPTR 
19? BNE >1 

193 DEC CAR.ECRil 

194 *1 CLC 

195 ADC 9$FF 

196 STA CAR.ECR 

297 IDA 9$0 

298 STA LS 

199 LDA 9503 

200 STA LS+1 

201 STA LCIF 

202 STA LCLONG 

203 „■ 

204 "0 JSR LITADR 

205 JSR CHRGET 

206 STA NtlM- R 

207 JSR CHRGET 

208 STA NUM. H 

209 JSR GOTO? 

210 JSR LONG. IF 

211 f 

212 LDA LCIF t&l LCIFoO OV ST 

213 BNE >3 ;LSGUTO<>9, IL NE 

214 LDA LSGOTO ;FAUT PAS "COLLER" 

215 BNE >3 ;LES 2 LIGNES 

216 ; 

217 LDA LSLONG /SI LSLONG = -> 

218 BEQ >/ ;RIEN A RECOPIER 

219 i 

220 LDA LCLONG fSI LCLONG - -> 

221 BEQ >5 ;ON COP IE LS TELLE 

222 / QUFJJ.E 

223 J 

224 CMP fLMAX ;SI LCLONG >= LMAX 

-> 

225 BCS >3 iSON COMPTE EST BON 

i 

226 CLC 

227 ADC LSLONG 

228 BCS >J 

229 CMP 0LMAX 

230 BCC >4 

R LC ET LS 

231 „• 

232 ;ICI, ON DOIT SE CONTENTER DE COLLER UN MORCEAU 

233 ;DE LS AU BOUT DE LC, A CONDITION QUE LS NE 

234 fCONTIENNE PAS DE IF (NI ONERR GOTO) ET QU'TI Y 

235 ;AIT UN ": m SEPAKATEUR D 'INSTRUCTIONS . 

236 j 



;3I LCLONG i LSLONG < 
;LMAX ON PEUT COLLE 
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237 ' 
738 
239 
240 
241 
242 
243 
244 
245 

246 

247 
248 
249 
250 ' 
251 
252 
253 
254 
255 

256 j 

257 t 

258 ; 

259 ; 

260 "3 
261 
262 
263 
264 

265 ; 

266 ' ENTREE ICI SI ON COMPACTE LES 

267 ; DEUX LIGNES 

268 ; 





T *? TF 
Li O i C 


308 


BNE >1 


; ECR ST ; 


RNF. 


>3 


309 


TflA t ' : 1 




LDA 


fLMAX 


31 


JSR ECR TRF.? 




SEC 




311 "1 


LDA tSO 




SBC 


LCLONG 


312 


JSP ECPIRF7 


;FCRTT T.E fl HE 


STA 

■•In 


r, 

mm 


313 


JSR ECR I R E2 


:FIN DE LIGNE 


JSR 


CHE RCHF. 


n 4 

J J 1 


LDA CAR ECR 




LDA 


DECJXPT 


315 


STA (LS) , Y 




BEQ 


>3 


1 7 
Ji o 








tSf) 


? J 7 


THA CAP PC8+1 




STX 


TEMPI 


jj* 


ctji /rci y 
O X rx 1 X^O 1 , • 




STX 


TEMP 2 


VI u 


S'I'A /^S+ ? 




TDA 




170 


rnA par ftr 




JSR 


ECRIRE 


321 






INC 


LCLONG 


177 






DEC 


LSI.ONG 


1 71 • 






JSR 


CUR GET 


324 i 






DEC 


DEUXPT 


325 ; 






BNE 


<2 


326 ;LIT 


I.E5 * PREMIERS OCTETS 


DE LS 



ENTREE ICT SI ON NE COMPACTE PAS 
LES DEUX LIGNES 

JSR CHAINER 
JSR COPIENUM 
LDA tSO 
STA LCLONG 
JMP >5 



269 *4 


LDY 


tso 


2/0 


LDA 


#*: * 


271 


CMP 


(CAR. ECR) . Y 


272 


BEQ 


>5 


273 


JSR 


ECRIRE2 


274 


TNC 


LCLONG 



275 i 

276 ; 

277 : 



ENTREE ICT SI LCLONG=0 ET 
ISLGNGOO: ON RECOPIE LS DANS LC 



278 








279 




LDA 


LSIF 


280 




STA 


LCIF 


281 




LDX 


tso 


782 




STX 


TEMPI 


283 




STX 


TEMP2 


284 




JSR 


CHRGET 


285 




CMP 


tso 


286 




BEQ 


>6 


287 




CMP 


tREM 


288 




BEQ 


>7 


289 




JSR 


ECRIRE 


290 




INC 


LCLONG 


291 




JMP 


<6 


292 


* 






293 


„• ENTREE ICI 


SI LSI.C 


294 


j DE 


LIRE LA 


LIGNE < 


295 


* 






296 


*7 


JSR 


CHRGET 


297 




CMP 


tso 


298 




BNE 


<7 


299 


A 8 


JMP 


<0 


300 









ON FIN IT 



j ICI, ON VIENT DE LI 
RE LE DE FIN DE 
LIGNE 



301 

302 ; 

303 /SOUS PROGRAMMES 

304 f 

305 ; 

306 CHAINER: 

307 LDA LCLONG 



327 ;SI 00 00 --> FIN DU PROGRAMME BASIC 

328 i 

329 LITADR: 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
34$ 
341 

348 A l 

349 i 

350 COPIENUM: 
351 
352 
353 
354 
J55 
356 

357 i 

358 ; 
359 







Jin 




CMP 


t$0 


BNE 


>1 


JSR 


CHAINER 


LDA 


t?0 


JSR 


ECRIRE2 


JSR 


ECRIRE2 


JSR 


ECRIRE2 


LDA 


CAR. ECR 


STA 


PRGEND 


LDA 


CAR.ECR+1 


STA 


PRGEND+1 


LDA 


tSFO 


STA 


SCO 


LDA 


tSEF 


STA 


SCI 


JMP 


BASIC 


RTS 




JSR 


ECRIRE2 


LDA 


NUM. B 


JSR 


ECRIRE2 


LDA 


NUM. H 


JSR 


ECRIRE2 


RTS 





;ICI LE PROGRAMME 
/EST TERMINE 



; CHERCHF. ST LS EST APPELF.E PAR GOTO, COSflR 01) TH 

EN GOTO 

;SI QUI -> LSG070=1 

/SI NON -> LSGOTO=0 



360 

361 

362 ; 

363 GOTO? 



JS1 LC VIDE, 



364 


LDA 


PRGEND 


365 


CLC 




366 


ADC 


tS4 


367 


STA 


TABLEAU 


368 


LDA 


PRCEND-f-1 


369 


ADC 


tSO 


370 


STA 


TABLEAUtl 


371 


LDY 


tso 


372 A 3 


JSR 


LIRETABL 


373 


CMP 


NUM.B 


374 


BEO 


>3 


375 


JSR 


LIRETABL 


376 "2 


CMP 


fSFF 


377 


RNF. 


<1 


378 


LDA 


tSO 
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379 




STA 


LSGOTO 


451 


STY DEUXPT 


ion 




H 1 1> 




452 


*3 INY 


381 


~3 


JSH 


1 J j j pin * or 

Li KC J AOL 


453 


CPY L 


382 




CMP 


NUM. tt 


454 


BCC <1 


i a i 

JOJ 




D1IE* 
Of*Gi 




455 


BEQ <1 


TO A 
JOH 




I dirt 


151 


456 


A 4 RTS 


385 








457 




386 




RTS 




458 


;DANS 'ECR1RE': 


387 








459 


;SI TEMPI**! : ON EST EN TRAIN DE RECOPIER 


388 


LIRETABL 






4 60 


; UNE CHAINS SANS LA MODIFIER 


389 




INC 




461 


■ Si TEMPl^O: TOUT DEPEND DE TEMP2 


o n n 




aire 




462 




J y J 








4 63 


/Si TEMP2 m J - Ow a^r CiW J Kvl J iv LJfc UUKicK tJNt. 


392 


"4 


r lift 


/Tfinr rzifii v 
[ 1 noLiCtnU / t I 


464 


/INSTRUCTION QUI C0NT1ENT &, CALL OU DATA 


393 




RTS 




4 €5 


/DANS CE CAS, ON COP IE TOUT JUSOU'AU '; ' 


394 








466 


; SEPARATEUR 


395 


t 






467 


;SI TEMP2=0: L ' INSTRUCTION NE CONTIENT NI 


396 








4 68 


,-NI CALL NT DATA: LES TEST DETE RM TNF.NT ALO 


397 


,-CHERCHE LA 


LONGUEUR DE L5 (LSLONG) 


469 


/ST ON TRATTE UN NOM DE VARIABLE OU UNE 



398 ;ET LA PRESENCE DE IF OU DE ONERR 



399 


/SI 


NT 7F r NT ONERR -> LSIF=0 


A 71 
1 I i 


400 


/SINON -> LSIFoO 


a 7? 
H l£ 


H vi 








A 79 




LONG. IF: 




Alt 

4 14 


403 




LDY 


tso 


A 7C 


404 




STY LSIF 


4 In 


4f> *» 

1 1/ J 




STY 


LSLONC 


a 77 
H ' f 


■if •■' 




INY 






407 




LDA 


(TXTPTRi . Y 


A7Q 


408 




DEQ 


>4 


A O ft 


40Q 

h v y 




CMP 


9REM 


6 01 
Hal 


H i V 




BEQ 


>4 


a a 1 
4tt£ 






CMP 


tie- 


en A 
HO J 


Hi£ 




BEQ >2 


A OA 

484 


1 i J 




CMP 


t ON ERR 


ME 
TO- 1 


H i H 




BNE 


>3 


HBO 


41 5 

Hi J 


*2 


STY LSIF 


HO 1 


41 6 


A 3 


INY 




ADO 
HOB 


41 7 

Hi/ 




BNE 


<1 


HO y 


410 

Hit* 


"4 


DEY 




a an 

Hi* Li 


41 4 
Hi y 




STY 


LSLONG 


AQJ 

H y l 


470 
H£ W 




RTS 




497 
H 9£ 


A 


/ 






AQJ 


A'J'J 
H££ 








Baa 
h y h 


H£J 








AQC 


4 P4 
Hit 


iPOUR COPIER 


UN MORCEAU DE LS t 


h aro 


425 
H£J 


; CHERCHE SI DANS LES L PREMIERS 


h y 1 


4 t 


jCARACTERES 


XL Y A UN : NON 


fa 


A 1 ~7 


/INCLUS DANS 


DES CUILLEMETS 


A OO 


428 


;SI 


OUI -> DEUXPT = LA DERNIERE 


500 


429 




POSITION TROUVEE 


501 


430 


;si 


NON DEUXPT' 


502 


431 








503 


432 


CNERCHE: 




504 


433 




LDY 


ISO 


505 


434 




STY 


TEMP 


506 


435 




STY 


DEUXPT 


507 


436 




INY 




50B 


4.17 




CPY 


L 


509 


438 




BCS 


>4 


510 


439 


A l 


LDA 


(TXTPTR) , y 


511 


440 




BEQ 


>4 


512 


441 




CMP 


#' 


513 


442 




BNE 


>2 


514 


443 




LDA 


TEMP 


515 


444 




EUR 


tsoi 


516 


445 




STA 


TEMP 


511 


440 




JMP 


>3 


518 


447 


*2 


CMP 


*' 


519 


448 




BNE 


*3 


520 


449 




LDA 


TEMP 


521 


450 




BNE 


>3 


522 



470 ; CONSTANTE 

/DANS LE CAS D'UNE VARIABLE X INDTQUF. T.F NOMBRE 
;DE CARACTERES DEJA ECRITS 



fRIQUE 



UN 



'4 



EST REM1S A PAR UN 
DE FIN DE LIGNE 



STA TEMP 
CMP tDATA 
BEQ >0 
CMP tAMPRS 
BEQ >0 
CMP tCALL 
BNE >1 

LDA $52 

STA TEMP2 
JMP >7 
CMP # ' " ' 
BNE >2 
LDA TEMPI 
EOR #51 
STA TEMPI 
JMP >7 
LP A TEMPI 
BNE >/ 
LDA TEMP 
CMP t ' : ' 
BNE >3 
LDA t$0 
STA TEMP 2 

JMP >7 
LDA TEMP2 
BNE >7 
LDA TEMP 
CMP 9*0' 
BCC >7 

cmp *'z*n 

BCS >7 
CMP #"9'+I 
BCS >4 
CPX 950 
BEQ >7 
BNE >5 
CMP 9 'A' 
BCC >7 
CPX 9S2 
BCC >6 
DEC LCLONG 
RTS 

LDX 9SFF 



SEPARATEUR OU PA 



523 '6 


INX 


524 


LDA TEMP 


525 ECRIPJE2: 




526 


LDY /SO 


527 


INC CAR.ECR 


52$ 


BNE >9 


529 


INC CAR.ECR+1 


530 *9 


STA (CAR.ECR) r Y 


531 


RTS 


532 ; 




533 ; 




534 B: 




535 LONGUEUR 


EQU B-A 


536 i 




531 


END 



Pom's n° 22 



■■ ■■■■ 



■■ ■■■■ ■■■ 
ii ■■ it 



■■■■■ ■ 



■■ 

mm mm 
mm* mmm 
■■ 
■ ■ 



Bernard 
France 



■■ ■■■■ 



■■ ■■ ■■ ■■ ■■■■ 
■■ ■■ ■■ ■■ ■■ 
■■ ■■ ■■ ■■ ■■ 



■■■■■■ ■■■■ ■■■■ ■■»■ 

■■■ ■■ ■■ ■■ ■■ ■■ ■ 

■■ ■■ *■ 

■■ ■■■■■■ ■■■■ • 

■■ ■■ ■* ■■ ■ 

■■ ■■ ■■ ■■ ■■ ■ 



■■ ■■■■ 

no 

■■ ■■ 
■■ ■■ ■■ 
■■ ■ ■ 

■■ ■■■ II 



■■■ ■■■■■ 

■■ ■■■ mm 
mm mm mm 



Les uLilitaires de recopie 
graphique des ecrans 
haute-resolution sont 
trcs nombreux, dispo- 
nibles sur le marche commercial, 
ou publics par Pom's. En revan- 
che, les ecrans graphiques basse 
resolution semblent etre ignores. 

Je vous propose ici un petit 
programme qui pcrmct dc generer 
des impressions papier sembla- 
bles a la haute- resolution k partir 
des graphiques basse-resolution 
de l'Apple. Ceci donne un aspect 
beaucoup plus agreable, en eli- 
minant I'aspect terne des impres- 
sions traditionnelles. 

Le programme DHGR utilise la 
propriete de 1'Image Writer et de la 
DMP de pouvoir cr£er facilement 
sa propre police de caractere, et 
tfest done exploitable qu'avec ces 
imprimantes. 



Utilisation 

Le programme fonctionne sous 
DOS 3.3 ; il se loge k l'adresse 
$300 (768 en decimal) sur une 
longueur de $F0 octets. Comme il 
ecrase certaines adresses du DOS 
contenues en $3DO-$3EF, il peut 
etre necessaire de rebooter aprSs 
son utilisation. 

HCGR fonctionne sur tous les 
types d'Apple // pourvus d'une 
Image Writer connectee au slot 1. 
II s'initialise par un simple 
"BLOAD HCGR" et est alors 
execute aussi souvent que neces- 
saire par "CALL 768". 

Les fichiers de la disquette Pom's 
sont : 

HCGR, le code objet executable 
HCGR.S, le source en Big Mac 
HCGR.DEMO, la demonstration 



Principe de 
fonctionnement 

HCGR effectue l'impression de la 
page graphique basse resolution 

de l'Apple (accessible sous 
Applesoft par I'instmction "GR"). 
Cette page correspond k une grille 
de 40 x 48 paves, chacun ayant 
une couleurparmi 16 disponibles. 

En memoire, les paves sont re- 
groupes deux k deux pour former 
un octet. II serait possible de 
considerer chaque octet comme un 
code ASCII et d'imprimer le 
caractere correspondant. Le resul- 
tat ne serait cependant gu6rc satis- 
faisant car Tecran graphique serait 




alors imprime sous forme d'une 
suite de lettres, de chiffres ou de 
caractSres de ponctuation. 

Afin d'ameliorer cette presen- 
tation, HCGR utilise la possibilite 
dc gencrer une police de carac- 
t£res sur I'imprimante 
ImageWriier. Cela permet de 
definir des carac- teres en fonction 

de la couleur du pave graphique : 
chaque caractere est imprime en 
fonction d'une matrice 8x8 
contenue dans la memoire de 



rimprimante ; on n'a done qu'& 
redefinir ces matrices pour obtenir 
des caractfcres tr£s clairs si le pave 
graphique affiche une couleur 
claire, et le contraire dans le cas 
... contraire. 

Fonctionnement du 
programme 

Le programme doit tout d'abord 
selectionner rimprimante (PR#1). 
II faut ensuite creer une police de 
caract£res personalises, ce qui est 
realise par la sequence suivante ; 

• initialisation ($09,$5A,$0D) ; 

• largeur des caract£res fixee k 8 
points d'aiguille ($1B,$2D) ; 

• debut de definition ($1B,$49) ; 

• definition de chaque caractere : 
code ASCII suivi du code 
largeur ($48 pour 8 points) et 
celui dc la nouvelle matrice ; 

• fin de definition ($04) ; 

• selection des caractfcres 'Pica' 
($lB t $4E) ; 

• interligne de 16/144 ($1B,$54, 
$31, $36) ; 

• options : simple largeur, 
impression bidirectionnelle, 5 
sauts de lignes ($0F,$1B,$3C, 
$1F,$35). 

II reste k examiner chaque pave de 
la page graphique basse resolution 
implantee aux adresses de $400 k 
$7FF, de le convertir en carac- 
tere imprimable (un pave blanc, 
done de couleur $F, est converti 
en $3F correspondant au caract&re 
"?" qui est imprime comme un 
carre plein). 

On utilise la routine SCREEN du 
moniteur (situee en $F871) qui 
renvoie, pour une ligne et une 
colonne donnees, la valeur du 
code couleur. 

Enffn, on redonne la main au 
DOS 3.3 en effectuant un PR#0. 
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Programme 

HCGR.DEMO 



10 



15 

25 
30 
35 
40 
45 



HOME : PRINT "DEMONSTRATION 
DE HCGB" 
PRINT : PRINT "ALLUMEZ VOIR 
E LMAGEWRITER" 
PRINT CHR$ (4);"BL0AD HCCR 
,A768" 

HOME : GR : POKE - 16302,0 
: CALL - 1998 
POKE 1004 , 62 
PORE 1002,15: GOSUB 100 
POKE 1002 t 14; COSUB 100 
POKE 1002,15: GOSUB 300 
POKE 1002,14: GOSUB 300 
50 C(0) - 0:C(1) - 15:C(2) - 12 
:C(3J - V:C(4) - Q:C(5) - 5: 
C(S) - 
55 POKE 1002, 15: GOSUB 500 
60 C(0) - 0:C(1) - 15:C(2) = 15 

;C(3) - 15:C(4) - 2:C(5) = 1 

5:C(6) - 3 
65 POKE 1002,15: GOSUB 500 
TEXT : HOME : END 
CALL - 199B 
FOR I - TO 19 
COLOR- T 

HLIN 1,39 - I AT I 
HLIN 1, 39 - I AT 39-1 
VLIN 1,39 - T AT T 
VLIN 1,39 - I AT 39 - I 
NEXT I 
CALL 768 
RETURN 
CALL - 1998 
FOR J - TO 47 
FOR I - TO 39 
COLOR- I + J 
PLOT I, J 
NEXT I 
NEXT J 
CALL 768 
RETURN 

REM CARTE DE FRANCE 
CALL - 1998 
RESTORE 

FOR Y = TO 47 
FOR X - TO 39 
READ I 

IF Y2 < Yl THEN 580 
COLOR- Cfl) 
PLOT x,r 
NEXT X 

NEXT Y 
CALL 768 
RETURN 

DATA 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 
0, 2, 2, 2, 2, 0, 0, 3, 0, 0, 0, 0, 3, 
0, 0, 0, 1, r 0, 5, 5, 5, 5, 0, 0, 0. 
0, 0,0 

DATA 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 
0, 7, 0, 0, 2, 0, 0, 3, 3, 0, 0, 3, 3, 
0, 0, 1, 1, 0, 0, 5, 0, 0, 0, 0, 0, 0, 
0, 0,0 

DATA 0,0,0,0,0, 0,1, 0,0,1,0, 
0, 2, 0, 0, 2, 0, 0, 3 ', 0, 3, 3, 0, 3, 
0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, U, V, 
0, 0, 

DATA 0,0,0,0,0, 0,1, 1,1,1,0, 
0, 2, 0, 0, 2, 0, 0, 3, 0, 0, 0, 0, 3, 
0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 0, 0, 0, 



90 
100 
120 
140 
160 
180 
200 
220 
240 
260 
280 
300 
320 
340 
360 
380 
400 
420 
440 
460 
500 
520 
540 
560 
580 
600 
610 
620 
640 
660 
680 
700 
720 
1000 



1001 



ion? 



1003 



0, 0,0 

1 004 DA TA 0, 0, 0, 0, 0,0*1, 0, 0, 0, 6, 

0, 2, 0, 0, 2, 0, 0, 3, 0, 0, 0, 0, 3, 
0, 0, 0, 0, 0, 0, U, 0, 0, 5, 0, 0, 0, 
0, 0, 

1005 DATA 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 

0, 2, 0, 0, 2, 0, 0, 3, 0, 0, 0, 0, 3, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, 
0, 0,0 

1006 DATA 0,0,0,0,0,0,1,0,0,0,0, 

0, 2, 2, 2, 2, 0, 0, 3, 0, 0, 0, 0, 3, 
0, 0,0,0, 0, 0, 5,5,5,5, 0, 0, 0, 
U, 0,0 

1007 DATA 0,0,0,0,0,0,0,0*0,0,0, 

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 0,0 



La mise en page de ce 
programme 

Bernard France nous pardonnera 
certainement d'avoir modifii 
fegerement les DATA de son source 
assembfeur. Le programme de 
Marianne Sutz du pr6c&dent 
numero nous a aidS £ recuperer les 
'motifs' du Macintosh. Pour obtenir 
fes reproductions ci-contre, nous 
avons utilise non I'lmageWriter mais 
fa LaserWriter en suivant fes 6 tapes 
suivantes : 

' RScupSration des DATA sur Iq 
Macintosh, 

• Transmission par la carte sdrie sur 
1' Apple//, 

• Insertion dans I'assembleur puis 
assemblage, 

• Impression' non sur I'lmage Writer 
mais sur I'dcran du Macintosh 
Smulant i'imprimante. toujours 
par fa carte s6rie et avec 
quelques Jignes de Basic, 

• Sauvegarde de i'ecran sur 
disquette, 

• Recuperation avec le programme 
MacPaint, 

• Impression d§ finitive par 
I'intermSdiaire du programme 
MacDraw afin de chois/r aisiment 
le formal 

Le r&sultat est la r£plique fidele (et 
meme un peu plus) de ce que vous 
obtiendrez sur voire imprimante. 



100H 



1009 



DATA 4,4,4,4,4,4,4,4,4,4,4, 
4, 4, 4, 4, 4, 4, 4, 4, 1, 1, 3, 6, 6, 
6, 6, 6, 6, €, 6, 6, 6, 6, 6, 6, 6, 6, 
6,6,6 

DATA 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 
4, 4, 4, 4, 4, 4, 4, 4, 1, 1, 1, 3, 6, 
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6,6,6 



1010 DATA 4,4,4, 4,4, 4,4,4,4,4,4, 

4, 4, 4 f 4, 4, 4, 4, 4, 5, 5, 1, 3, 3, 

3, 6, 1, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 
6, 6,6 

1011 DATA 4,4,4, 4,4,4,4.4,4,4,4, 

4,4,4,4,4,4,4,2,5, 5, 5, 2,2, 
2,1,1, &, 6, 6,6, 6, b, 6, 6, 6,6, 
6,6,6 

1012 DATA 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 

5, 5, 4, 4, 2, 2, 2, 2, 1, 1, 1, 2, 2, 
2, 1, 1, 3, 6, 6, 6, 6, 6, 6, 6, 6, 6, 

6, 6,6 

1013 DATA 4,4, 4, 4, 4, 4,4,4,4,4,4, 
5,5,4, 4, 4, 3,2,2, 1, 1,1,2,2, 
5,5,1,3, 3, 5,2, 6, 6, 6,6,6,6, 
b, b, 6 

1014 DATA 4,4,4, 4,4, 4,4,4,4,4,4, 
5,5,1,1,1,3,3,3,5, 5, 3, 2, 5, 
b, b, b, 3, 3, 5, 2, 2, 3, 3, 3, 6, 6, 
6, 6,6 

1015 DATA 4, 4, 4, 4, 4, 4, 4, 2, 2, 4, 4, 

4, 5, 1, 2, 2, 2, 3, 3, 5, 5, 3, 3, 5, 

1, 5, 5, 2, 3, 5, 5, 2, 3, 3, 6, 6, 6, 
6,6,6 

1016 DATA 4,4,4,4,3,3,3,2,2,2,2, 

4, 5, 5, 2, 2, 2, 1, 1, 5, 5, 3, 3, 1, 
1,1,1, 2, X, 1, 1, 1, 3, 3, 6, 6, 6, 
6,6,6 

1017 DATA 4,4,4,4,4, 3,3,5,5,5,1, 

1.1.3.3.1.2.1.1.1, 2, 3, 5, 5, 

1.1.1.2.2.1.1.1.2, 2, 6, 6', 6, 
6, 6, 6 

1018 DATA 4,4,4, 4,3, 3,3,5,5,5,1, 

1,1,3, 3,1,1,5,1,2, 2,2, 5,5, 

5, 3, 3, 2, 2, 5, 5, 5, 2, 2, 6, 6, 6, 
6,6,6 

1019 DATA 4,4,4,4,4,4,4,5,5,5,1, 
2, 2, 5, 5, 1, 1, 5. S, 2, 2, 2, 5, 5, 
5, 3, 3, 3, 5, 5, 5, 1, 2, 2, 6, 6, 6, 
6,6,6 

1020 DATA 4,4,4,4,4,4,4,4,4,2,2, 
2, 2, 5, 5, 5, 3, 3, 5, 5, 3,3,1, 1, 

5, 3, 3,3,2,1,1,1, 6, 6, 6, 6, 6, 

6, 6, 6 

1021 DATA 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 

2, 5, 5, 5, 5, 3, 3, 2, 3, 3, 3, 3, 1, 
1, 5, 5, 5, 2, 2, 1, 1, 6, 6, 6, 6, 6, 
6, 6, 6 

1022 DATA 4.4.4,4.4,4.4,4,4,4,3, 
3,3,1,1,1,5, 3,2,2,2, 3, 3,1, 

5, 5, 5, 5, 2, 2, 1, 6, 6, 6, 6, 6, 6, 

6, 6, 6 

1023 DATA 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 3 
,3, 3, 3,1,1,5, 5,2,2, 2, 3,2,2 
r 5, -S, 5, 1,?,?, 6, 6, 6, 6, 6, 6, 6 
,6,6,6 

1024 DATA 4,4,4,4,4,4,4,4,4,4,4 

,3,3,3,1,1.5.5. 1, 5, 5. 2, 2, 2 
, 2, 3, 2, 1,1,1, 6, 2, 2, 6, €, 6, 6 
, 6/ & 

1025 DATA 4,4,4,4,4,4,4,4,4,4. 4 
,4,2,2, 2, 3,3,3,1,5, 5,5,1,1 
,1,3,2,1,1,1,2,2,2, 6,6,6,6 
,6,6,6 

1026 DATA 4,4,4, 4,4, 4,4,4,4,4,4, 

4, 2, 2, 2, 3, 3, 1, 1, 1, 2, 2, 1, 1, 

1, 3, 2, 5, 5, 5. 3. 3, 3, 6, 6, 6, 6, 
6,6,6 

1027 DATA 4,4,4,4,4,4,4,4,4,4,4, 

4,4,4,2, 3, 5,5,1,2, 2,2, 5, 2, 

2, 3, 3, 5, 5, 5, 5, 3, 3, 6, 6, 6, 6, 
6. 6,6 

1028 DATA 4,4,4,4,4,4,4,4,4,4,4, 
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Hard-Copy simple et 
double : des precisions 

Sur la disquette 
daccompagnement de ce num&ro, 
vqus trouverez des versions 
modifiees des programmes de 
hard-copy parus dans les Pom's 
18 et 7P- En double largeur, la 
dcrrtidre ligne rietait pas 
imprirnie. D'auire pari, la 
nnuvelle version du patch du 
numero 19 respecte mieux la 
geomeirie de Vintage ( mise en 
carac teres Elite au lieu de 
proportion/mis). 



4, 1, 4, 2, 5, 5, 5, 5, 2, 2, 5, 5, 5, 

2, 2, 1, 3, 3, 5, 5, 1, 6, 6, 6, 6, 6, 
6, 6,6 

1029 DATA 4,4,4,4,4,4,4,4,4, 4, 4, 

4,1,1,1,5,5, 5, 5, 3, 3* 5, 1, 5, 
3,1,1,3,3,3,1,1,1,6, 6, 6, 6, 
6, 6,6 

1030 DATA 4,4,4,4,4,4,4,4,4,4,4, 

4, 4, 1, 1, 1, 2, 2, 3, 3, 3, 1,1,1, 
3,3, 1,3,3,3, 1,5,5,6,6,6,6, 
C, 6,C 

1031 DATA 4,4,4,4,4,4,4,4,4,1,4, 

4, 3, 3,1,2, 2, 1,1, 1, 3> 1,1>I, 

3, 3, 5, 2, 2, 2, 5, 5, 5, 1, 1, 6, 6, 
6, 6,6 

1032 DATA 4,4,4,4*4,4,4,4,4,4,4, 

4,3,3,3,5,5, 1,1, 1,5,5,5,1, 

2, 5, 5, 1, 2, 2, 5, 5,5,1, 1, 6, 6, 
6, 6,6 

1033 DATA 4,4,4,4,4,4,4,4,4,4,4, 

3, 3, 3, 5, 5, 5, 5, 2, 2, 5, 5, 5, 2, 
2, 2, 5, 1,1,1, 3, 3, 3, 1* 4, 4, 4, 
4,4,4 

1034 DATA 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 
2, 2, 2, 2, 3, 3, 2, 2, 2, 5, 5, 5, 2, 
2, 4, 5, 1, 4, 1, 3, 3, 3, 4, 4, 4, 4, 
4, 4,4 

1035 DATA 4,4,4,4,4,4,4,4,4.4,4. 
2, 2, 2, 2, 3,3,2,3,3,1,1,1,1, 

4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,4, 
4, 4,4 

1036 DATA 4,4,4,4,4,4,4,4,4,4,4, 

4. 4, 2. 2, 3, 3, 2, 3, 3, 3,1,1, 4, 
4,4,4,4, 4, 4, 4, 4, i, 4, 4,4,4, 
4, 4, 4 

1037 DATA 4,4,4,4.4.4.4.4.4.4.4. 

4,4,4, 4, 4, 4, 4, 4,3,1,1,1,1, 
4,4,4,4, 4,4, 4, 4,4,4, 4,4,4, 
4, 4,4 

1036 DATA 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 
4,4,4,4, 4, 4, 4,4,4,4, 4,4,4, 
4, 4, 4, 4. 4, 4, 4, 4, 4, 4, 4, 4,4, 
4, 4,4 

1039 DATA 4,4,4,4,4,4,4,4,4,4,4, 
4, 4, 4, 4, 4, 4, 4, 4, 4 fi 4, 4, 4, 4, 
4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 
4, 4,4 

1040 DATA 4,4,4,4,4,4,4,4,4,4,4, 
4, 4, 4,4,4,4,4,4,4,4,4,4,4, 
4, 4, 4, 4, 4, 4, 4, 4, 4, 3, 4, 4, 4, 
4,4,4 



1041 DATA 4,4,4, 4,4, 4,4,4,4,4,4, 
4,4,4, 4,4,4,4,4,4, 4, 4, 4, 4, 
4.4.4.4.4.4.4.4.4, 3.4, 4.4, 
4,4,4 

1042 DATA 4,4,4, 4,4, 4,4,4,4,4,4, 
4,4,4,4, 4,4,4,4,4, 4,4,4.4, 
4, 4, 4, 4, 4, 4, 4, 4,3, 3,4, 4,4, 
4, 4, 4 

1043 DATA 4.4.4.4,4,4,4,4.4.4.4. 

4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 
4, 4, 4, 4, 4, 4, 4, 3, 3, 3, 4, 4, 4, 
4.4,4 

1044 DATA 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 
4,4,4,4,4,4, 4,4,4, 4,4,4,4, 



4,4,4,4,4,4,4,5, 5,5, 4,4,4, 
4, 4. 4 

1045 DATA 4,4, 4,4,4,4,4,4,4,4,4, 

4.4, 4, 4, 4,4, 4,4, 4, 4, 4,4,4, 
A, 4, 4, 4, 4, 4, 4, 5, 5, 5, 4, 4, 4, 
4,4,4 

1046 DATA 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 

4.4. 4,4,4,4,4, 4. 4,4, 4,4,4, 
4, 4, 4, 4, 4, 4, 4, 5, 5, 5, 4, 4, 4, 
4,4,4 

1047 DATA 4,4,4,4,4,4,4,4,4,4,4. 

4,4,4,4,4,4,4,4, 4,4,4,4,4, 
4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 4, 4, 4, 
4.4,4 



Recapitulation 


0368- 
0370- 


AA 
00 


34 
AA 


48 
00 


AA 
35 


00 
48 


AA 
11 


00 
22 


AA 
44 














0378- 


88 


11 


22 


44 


88 


36 


48 


55 




















0380- 


55 


55 


55 


55 


55 


55 


55 


31 


0300- 


A9 


00 


85 


36 


A9 


CI 


85 


37 


0388- 


48 


27 


3F 


F3 


72 


4E 


CF 


FC 


0308- 


A2 


39 


E8 


BD 


00 


03 


20 


ED 


0390- 


E4 


38 


48 


55 


00 


bb 


00 


bb 


0310- 


FD 


EO 


EE 


90 


F5 


A2 


FF 


E8 


0398- 


00 


55 


00 


39 


48 


EE 


DD 


BB 


0318- 


AO 


FF 


C8 


8A 


20 


71 


F8 


09 


03A0- 


77 


EE 


DO 


BB 


77 


3A 


48 


F7 


0320- 


30 


20 


ED 


FD 


CO 


27 


90 


F2 


03A8- 


DF 


FE 


FB 


BF 


EF 


rn 


IF 


3R 


0328- 


A9 


OD 


20 


ED 


FD 


EO 


2F 


90 


03BQ- 


48 


EF 


DF 


BF 


7F 


FE 


FD 


FB 


0330- 


E6 


A9 


BD 


85 


36 


A9 


9E 


85 


03B8- 


Fl 


3C 


48 


55 


FF 


AA 


FF 


55 


0338- 


37 


60 


09 


5A 


OD 


IB 


2D 


IB 


03CO 


FF 


AA 


FF 


3D 


48 


EE 


FF 


DD 


0140- 


49 


30 


48 


00 


00 


00 


00 


00 


03C8- 


FF 


EE 


FF 


DD 


FF 


3E 


48 


77 


0348- 


00 


00 


00 


31 


40 


22 


00 


86 


03DO- 


FF 


FF 


FF 


77 


FF 


FF 


FF 


3F 


0350- 


00 


22 


00 


88 


00 


32 


48 


55 


0308- 


48 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


0359- 


00 


AA 


00 


55 


00 


AA 


00 


33 


03EO- 


FF 


04 


IB 


4F. 


IB 


71 


IB 


54 


0360- 


48 


55 


AA 


55 


AA 


55 


AA 


55 


03E8- 


31 


36 


OF 


IB 


3C 


IF 


35 


OD 



Basicium... 
le Basic 

enrlchi 



Gerard Michel 



Cct utilitairc vous permet de 



hnpruner I'ecran 
40 ou HI) colonnes 
par "III". 

Nettoyer memoir e 
trds rapidemeru par 
"IF". 



Girer des messages, 
la riponse tiara 
controls e. 



AippB® H+9 /As j 



Girer des masqi4£.s 40 ou 
80 colonnes. Ccs ecrans, 
definis lors de la program- 
/nation, s'affichent par la 
simple cammande " ] A". 



Saisir toutes les variables 
d'un ecran en une seule 
commande en 
controlant type et longueur. 



Mais aussi, ne saisir que 
Vane des variables affeciies 
h un ecran, les afficher, les 
effacer, etc. . . 



f 




Tons les fichiers source sont sur la disquette (e 


xemple de 






demonstration dans le Pom's 13) 






1 


Disquette et documentation : 150,00 TTC franco 

(bon de commande page 74) j 
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Programme HCGR.S 

(assembleur BigMac) 

2 ******** 

2 * HCGR * 
2 ******** 

4 

5 * BERNARD FRANCE 

6 * BIG MAC 
7 



8 


COUT 




$FDED 




9 


csw 




$36 




10 


DOSCSW 




$9EBD 




11 


SCREEN 




$F871 




12 




ORG 


$300 




13 










14 


********** pRfl *********** 


15 










16 




LDA 


f$00 




17 




STA 


csw 




18 




LDA 


t$Cl 




19 




STA 


CSW+1 




20 










21 


** DEFINITION 


NOUVEAUX 


CARACTERES 


22 










23 




LDX 


*$39 


40 COL - 1 


24 


CAR 


INX 




CARACT SUIVT 


25 




LDA 


$0300, X 


CHARGE TABLE 


26 




JSR 


COUT ' 


ENVOI A IMPR 


27 




CPX 


*$EE 


FIN TABLE ? 


28 




BCC 


CAR 


NON 


29 










30 


** ANALYSE DE 


LA PAGE CRAP HI QUE 


31 










32 




LDX 


i$FF 




33 


LIG 


INX 




LIGN SUIVANTE 


34 




LDX 


t$FF 




35 


COL 


INY 




COL SUIVANTE 


36 




TXA 






37 




JSR 


SCREEN 


RENV CQULEUR 


38 




ORA 


i$30 


CONVERTI 


39 




JSR 


COUT 


ENVOI A IMPR 


40 




CPY 


4$27 


DERNIERE COL 


41 




BCC 


COL 


NON 


42 




LDA 


*$0D 


RETR CHAR TOT 


43 




JSR 


COUT 




44 




CPX 


#$2F 


DERNIERE LIGN 


45 




BCC 


LIG 


NON 


46 










47 


********** ********** 


48 










49 




LDA 


f<DOSCSW 


RETOUR AU DOS 






3.3 




50 




STA 


CSW 




51 




LDA 


*>DOSCSW 




52 




STA 


CSW+1 




53 




RTS 




C'EST FINI! 


54 










55 


********** ffiRT.F. ********* 


56 










57 




DFB 


$O9,$5A,$0D INITIALISE 


58 




DFB 


$1B, $2D 


8 POINTS 


59 




DFB 


$1B, $49 


DEBUT DEF 




60 DFB $30, $48, $00 , $00, $00, $00, 

$00, $00, $00, $00 
NOIR 

61 DFB $31, $48, $22, $00, $88, $00, 

$22, $00, $88, $00 
MAGENTA 

62 DFB $32, $48 , $55, $00, $AA, $00, 

$55, $00,$AA,$00 

63 DFB $33,$48,$55,$AA,$55 t $AA, 

$55,$AA,$55,$AA 

64 DFB $34, $48, $AA, $00, $AA, $00, 

$AA, $00,$AA, $00 

65 DFB $35, $48, $11, $22, $44, $88, 

$11, $22, $44, $88 

66 DFB $36, $48, $55, $55, $55, $55, 

$55, $55, $55, $55 

67 DFB $37, $48, $27, $3F, $F3, $72, 

$4E, $CF, $FC, $E4 

68 DFB $38, $48, $55, $00, $55, $00, 

$55, $00, $55, $00 

69 DFB $39, $48, $EE, $UD, $BB,$77, 

$EE, $DD,$BB, $77 

70 DFB $3A, $48, $F7, $DF, $FE, $FB, 

$BF, $EF,$FD,$7F 

71 DFB $3B, $48, $EF, $DF, $BF, $ 7F, 

$FE, $FD, $FB, $F7 

72 DFB $3C, $48, $55, $FF, $AA, $FF, 

$55, $FF, $AA, $FF 

73 DFB $3D, $48, $EE, $FF, $DD, $FF, 

SEE, $FF, $DD, $FF 

74 DFB $3E f $48 ,$77, $FF, $FF , $FF, 

$77 f $FF,$FF,$FF 

75 DFB $3F, $48, $FF, $FF, $FF, $FF, 

$FF,$FF,$FF,$FF 



76 


DFB 


$04 


FIN POLICE 


77 


DFB 


$1B, $4E 


CARACT PICA 


78 


DFB 


$1B, $27 


POLICE PERSO 


79 


DFB 


$1B, $54, 


$31, $36 


80 


DFB 


$0F 


SIMPL T.ARGFAJ 


81 


DFB 


$1B, $3C 


BIDIRECTIONN 


82 


DFB 


$1F, $35 


5 SAUTS LIGN 


83 


DFB 


$0D 


NON UTILISE 


84 


END 







Pom's n° 22 



De 




Jean-Louis Chauvin 



m V n complement de l'ar- 
m J tide paru dans le n° 
m J 11 de Pom's, voici 
W m deux nouveaux pro- 
grammes de trace de courbes en 
conversationnel. 

Le premier, baptise FORMULE1, 
dessine toutes les fonctions du 
type Y = f(X). II permet aussi de 
tracer la courbe de la derivee. 

FORMULE2 trace les courbes 
definies soit par un couple 
d'equations parametriques X = 
f(T), Y = g(T), soit par une 
equation polaire R = f(T). Dans 
les deux cas, vous pouvez 

egalement ; 

• obtenir une famille de courbes 
en introduisant dans la formule 
un parametre M ; 

• cadrer la partie du plan (X Y) 
representee ; 

• faire apparaftre ou non les axes 
de coordonnees ; 

• tracer la courbe par points 
(pour les fonctions discon- 
tinues). 

Avec les deux programmes, les 
formules apparaissent sur k 
graphique. 

Quand vous lancez FORMULE 1, 
laissez dans le lecteur une 
disquette non protegee (vous 
verrez plus loin pourquoi). 

Completez apr£s T =' la formule 
comme en Basic, sans autre 
variable que X (et M dans 

1'option avec 'parametre'); vous 

pouvez utiliscr les constantcs PI 
et E (attention J la syntaxe : tapez 
2 * PI et non 2 PI). XI, X2, Yl 
et Y2 delimitent la partie du plan 

representee sur l'ecran. 

Si vous changez les valeurs 
proposces, prenez soin que X2 
soit superieur & XI et que Y2 soit 
superieur h Yl. Si vous avez 
demande un parametre M, vous 
devrez ddfinir sa progression par 
les valeurs extremes Ml et M2 et 
par le pas qui doit fitre de meme 
signeque (M2-M1). 



Avec FORMULE2, le processus 
est le meme excepte que, dans les 
formules, la variable doit fetre T et 
non X. 

En outre, vous aurez h introduce 
les homes Tl et T2 du domaine 
de variation de T si les valeurs 
par defaut ne vous conviennent 
pas. 

Le parametre M vous permettra 
de realiser des effets artistiques. 
Essayez par exernple : 

R = COS(4*T)+M 

avec Ml = -2, M2=2 et PAS-1. 



I'arr6t par END (ligne 290) 
declenche l'execution de la 
procedure. 

Celle-ci, apr£s avoir modifie le 
programme, le relance & la li- 
gne 400 (RUN 400 ligne 260). 
Ce RUN mettant les variables & 
zero, les valeurs a conserver 
doivent etre inscrites egalement 
dans des instructions par la 
procedure (lignes 225 £ 250). 
apr£s redemarrage, la proce- 
dure est effacee (Ugne 410) et 
le deroulement se poursuit. 



Y=SIN<>: >+ . 5*TANX X )*M 




Exernple de courbe avec parametre M 
variant de -2 a 2 par pas de 1 



Le programme 

II est entidremeni redige en 
Applesoft. Pour inserer une 
formule dans une instruction, il 

procede comme suit : 

• la formule est introduite (ligne 
90 de FORMULE 1) comme 
variable chalne F$. 

• le programme cree et enregistre 
sur la disquette (lignes 200 & 
270) une procedure nommee 
PROCEDURE qui comporte 
entre autres commandes (ligne 
220) la creation a la ligne 560 
de rinstruction representee par 
la formule Y=F$. 



Pendant le trace de la courbe, les 
valeurs non definies de la fonc- 
tion (1/0, SQR(-l)...) sont elimi 
nees par ONKRR GOTO 1700, 
corrige par la routine classique en 
langage machine de la ligne 35. 

Par ailleurs, 1'affichage de la 
formule en mode graphique est 
assure par le sous-programme de 
la Ugne 1500. 

Celui-ci utilise une table de 
formes (fichier ALPHA sur la 
disquette) que le programme 
charge (ligne 37) & l'adresse 
16384 ($4000), immediatement h 
la suite de la page graphique 
haute resolution n°l . 
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Programme FORMULE1 

10 REM TRACE DE COURBES DE FONCTIO 
IT 

20 REM PAR J.L.CHAUVIN 1984 
30 D$ = CHR$ (4) : FIRST = 1: SCALE 
= Is ROT= 0:Q$ = CHR$ (34) :S = 
16384 

35 POKE 768, 104: POKE 769,168: POK 
E 770, 104: POKE 771 f 166: POKE 7 
72,223: POKE 773,154: POKE 774, 
72: POKE 775,152: POKE 776, 72: 
POKE 7 77, 96 

37 PRINT D$ "BLOADALPHA, A "S : POKE 2 
32,0: POKE 233, 64 

40 POKE 34,0: TEXT : HOME : PRINT 
TAB ( 7) "COURBES DE FONCTIONS Y 
-F(X) 

50 PRINT TAB ( 7) »============= 



60 PRINT : PRINT "INTRODUCTION DE 

LA FORMULE 
70 PRINT : INPUT "FORMULE AVEC PAR 

AMETRE l W (0)?";A$: IF A$ = "0 

" THEN PAR = 1 
80 IF FIRST THEN PRINT : PRINT "R 

ESPECTEZ LA SYNTAXE DU BASIC": 

PR JOT "VOUS POUVEZ UTILISER 'PI 
' ET 'E' " 

90 PRINT : PRINT "FORMULE : "; : INPU 
T " Y=";F$ 

100 PRINT : PRINT "VALEURS EXTREME 
S DE X(SIN0N:X1=-7,X2=7) :": IN 
PUT "X1=";X1$: IF Xl$ = "" THE 
N Xl$ = "-7": HTAB 4: VTAB PE 
EK (37) s PRINT XI $ 

105 INPUT "X2=";X2$: IF X2$ = "" T 
HEN X2$ - "7": HTAB 4: VTAB P 
EEK (37) : PRINT X2$ 

110 PRINT : PRINT "VALEURS EXTREME 
S DE Y(SIN0N:Y1—4,Y2=4) : " : IN 
PUT n Yl= n ;Yl$: IF Yl$ = "" THE 



N Yl$ = "-4": HTAB 4: VTAB PE 

EK (37) : PRINT Yl$ 
115 INPUT "Y2=";Y2$: IF Y2$ = "" T 

HEN Y2$ = "4": HTAB 4: VTAB P 

EEK (37) : PRINT Y2$ 
120 M$ = "0":MD$ = "0":PM$ = "0": 

IF PAR THEN PRINT : PRINT "VA 

LEURS DE M:": INPUT "DE M=";M$ 
i INPUT "A M=";MD$: INPUT "PAS 

=";PM$ 
130 HGR : HOME 

200 REM CREATION PROCEDURE POUR IN 

TRODUIRE LES FONCTIONS DANS LE 
PROGRAMME * 
210 PRINT D$; "OPENPROCEDURE" : PRIN 

T D$/ "WRI TEPROCED URE 
220 PRINT "560Y="F$: PRINT "825Y=" 

F$: PRINT "835Y="F$ 
225 PRINT "415F$="Q$;F$;Q$ 
230 PRINT "420X1 = "X1$":X2="X2$ 
240 PRINT "430Y1 = "Y1$" :Y2="Y2$ 
250 PRINT "44 0M= "M$ " i MD= "MD$ " : PM= " ' 

PM$ 

260 PRINT "RUN400 
270 PRINT D$"CLOSEPROCEDURE 
280 PRINT D$"EXECPROCEDURE 
290 END : REM ARRET POUR DECLENCHE' 
R EXEC 

399 REM PREPARATION DONNE ES ** 

400 PI = 4 * ATN (1) :E - EXP (1) 
: ONERR GOTO 1700 

410 D$ = CHR$ (4) :Q$ = CHR$ (34) 
: PRINT D$ "DELETEPROCEDURE 

415 F$ = "EXP (X/2) " 

420 XI = - 7:X2 = 7 

430 Yl - - 4:Y2 = 4 

440 M = 0:MD = 0:PM = 

445 POKE 34,20: HOME : HCOLOR= 3 

450 IF XI > = X2 THEN PRINT "ERR 
EUR: X1>=X2": GET AS: GOTO 40 

460 IF Yl > = Y2 THEN PRINT "ERR 
EUR: Y1>~Y2": GET A$ : GOTO 40 

465 TF MD = M GOTO 480 



Table de formes 

ALPHA 

Apris avoir saisi cefichier sous moniteur. 
Ic sauvegardcr par : 

RSAVE ALPHA f A$ 4000, T*$$CQ 

4 000- 80 00 8A Ql A 6 01 A8 01 

4 008- AF 01 B8 01 C5 01 D4 01 

4010- DF 01 F.C 01 FS 01 F8 01 

4018- 00 02 OF 02 18 02 IC 02 

4020- 21 02 24 02 2E 02 3E 02 

4028- 47 02 55 02 61 02 6C 02 

4030- 79 02 85 02 92 02 9F 02 

4038- AB 02 AE 02 B2 02 BF 02 



4040- 


C6 


02 


D3 


02 


DD 


02 


EA 


02 


4040- 


F9 


02 


05 


03 


11 


03 


ID 


03 


4050- 


29 


03 


33 


03 


3F 


03 


4C 


03 


4058- 


56 


03 


5F 


03 


6E 


03 


77 


03 


4060- 


85 


03 


93 


03 


AO 


03 


AA 


03 


4068- 


B7 


03 


C5 


03 


n? 


03 


DR 


03 


4070- 


E8 


03 


F5 


03 


03 


04 


14 


04 


4078- 


IE 


04 


2C 


04 


31 


04 


3D 


04 


4080- 


4C 


04 


53 


04 


59 


04 


61 


04 


4088- 


6E 


04 


79 


04 


81 


04 


8A 


04 


4090- 


95 


04 


9F 


04 


AC 


04 


RQ 


04 


4098- 


CI 


04 


CB 


04 


D8 


04 


El 


04 


40A0- 


EA 


04 


F3 


04 


FE 


04 


09 


05 


40A8 


14 


05 


IC 


05 


27 


05 


31 


05 


40B0- 


3B 


05 


45 


Ob 


51 


05 


6i 


05 


40B8- 


6E 


05 


79 


05 


87 


05 


93 


05 



40C0- 


A2 


05 


A8 


05 


B8 


05 


00 


00 


40C8- 


00 


00 


00 


00 


00 


00 


00 


00 


40D0- 


00 


00 


00 


00 


00 


00 


00 


00 


40D8- 


00 


00 


no 


00 


00 


00 


00 


00 
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00 


00 


00 


00 


00 


00 


00 


00 


40E8- 


00 


00 


00 


00 


00 


00 


00 


00 


40F0- 


00 


00 


00 


00 


00 


00 


00 


00 


40F8- 


00 


00 


00 


00 


00 


00 


00 


00 


4100- 


00 


00 


01 


no 


00 


00 


00 


00 


4108- 


00 


00 


00 


00 


00 


00 


00 


00 


4110- 


00 


00 


00 


00 


00 


00 


00 


00 


4118- 


00 


00 


00 


00 


00 


00 


00 


00 


4120- 


00 


00 


02 


03 


04 


Ob 


06 


07 


4128- 


08 


09 


OA 


OB 


oc 


OD 


OE 


OF 


4130- 


10 


11 


12 


13 


14 


15 


16 


17 


4138- 


18 


19 


1A 


IB 


IC 


ID 


IE 


IF 



28 
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470 IF (MD - M) * PM < OR PM = 
THEN FRINT "ERREUR SUR M" : G 

ET A$: GOTO 40 
480 HOME : INPUT "COURBE PAR POINT 

S (0)?";A$: IF A$ < > "O" THE 

N CO — 1 

490 PRINT r INPUT "TRACE DES AXES 
(0)?";A$: IF A$ = "0" THEN AX 
= 1 
495 HOME 

500 REM GRAFHIQUE ** 

510 T$ = "Y=" + F$ : GOSUB 1500 

520 RX = (X2 - XI) / 279 :RY = (Y2 

- Yl) / 159: IF AX = GOTO 54 



524 REM AXES ET GRADUATION 

525 XO = - XI / RX;Y0 - 159 * Yl 
/ RY: IF XO < OR XO > 279 GO 
TO 532 

530 HPLOT X0,0 TO X0 r 159:YP = INT 

(Y2) : IF XO > 278 GOTO 532 

531 YY = (Yl - YP) / RY f 159: HPL 
OT XO I l f YY:YP = YP - 1 : IF Y 
P > = Yl GOTO 531 

532 IF YO < OR YO > 159 GOTO 540 
535 HPLOT O,Y0 TO 279,Y0:XP = INT 

(X2) : IF YO < 1 GOTO 540 
537 XX = (XP -XI) / RX: HPLOT XX, 
YO - 1:XP = XP - 1: IF XP > « 
XI GOTO 537 

539 REM COURBE 

540 XX = 

550 X = XI + XX * RX 

560 Y = EXP (X / 2) 

570 YY = (Yl - Y) / RY f 159 

580 IF YY < OR YY > 159 THEN IN 

= 0: GOTO 620 
590 IF IN * CO THEN HPLOT TO XX r 

YY: GOTO 67 
600 HPLOT XX, YY 
610 IN = 1 

620 XX = XX -hi: IF XX < 280 GOTO 
550 



625 IN — 0: IF PM = GOTO 800 
630 M = ~M + FM: IF (MD - M + FM) * 
PM > GOTO 540: REM ITERAT 
ION 

640 HOME ; INPUT "AUTRE FORMULE (0 

) ?";A$: IF A$ = "0" GOTO 40 
650 END 

800 REM DERIVEE ** 

810 HOME : INPUT "TRACE DE LA DERI 

VEE (Q)?";A$: IF A$ < > "O" G 

OTO 640 
815 XX = 0: HCOLOR= 2 
820 X = XI + XX < RX 
825 Y = EXP (X / 2) 
830 YD = Y:XD = X:X = X + .001 
835 Y = EXP (X / 2) 
840 DY = Y - YD : DX - X - XD 
850 DER = DY / DX 
860 DD - (Yl - DER) / RY + 159 
870 IF DD < OR DD > 159 THEN IN 

= 0: GOTO 910 
880 IF IN * CO THEN HPLOT TO XX, 

DD: GOTO 900 
890 HPLOT XX, DD 
900 IN - 1 

910 XX = XX -f 1 : IF XX < 280 GOTO 
820 

920 IN = 0: HC0L0R= 3: GOTO 640 

1499 REM AFFICHAGE HGR D'UNE CHAIN 
E T$ ** 

1500 S = 16384: A - S + PEEK (S + 
2) + 256 * PEEK (S + 3) :NB = 

PEEK (S) :IC = 1:XB = PEEK 
(A - 6) : YB - PEEK (A - 5) 

1510 LO = LEN (T$) :DX = PEEK (A 
-8) + IC + 1 

1520 FOR I - 1 TO LO 

1530 AS = ASC ( MTD$ (T$,T,1)) 

1540 NF = PEEK (S + 2 A NB + 2 + 
AS) 

1550 DRAW NF AT XA -t XB, YA -f YB 
1560 XA = XA + DX: IF XA > 270 THE 
N XA = 0:YA - YA + 10 
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29 



1570 
1700 
1705 
1710 

1720 



1730 



1740 



1750 



ERREURS 



( 




NEXT : RETURN 
REM TRAITEMENT 
CALL 768 

ER = PEEK (222) :LI = PEEK 
218) f PEEK (219) * 25 6 
IF (ER = 53 OR ER = 133) AND 
LI = 560 THEN IN ~ 0: GOTO 62 


IF ER = 16 THEN PRINT "ERREU 
R DE SYNTAXE LIGNE ";LI: GET 
A$: GOTO 40 

IF (ER = 53 OR ER = 133) AND 
(LI = 825 OR LI = 835) THEN I 
N - 0: GOTO 910 

PRINT "ERR EUR N [ "ER " LIGNE "L 
I: PRINT CHR$ (7) : END 



Programme FORMULE2 



10 REM TRACE DE COURDE5 DE FONCTIO 
N 

20 REM PAR J.L.CHAUVIN 1984 
30 D$ = CUR$ (4): FIRST = 2; SCALE 
= 1: ROT= 0:Q$ = CHR$ (34) :S = 
16384 

35 POKE 768,104: POKE 769, 168: POK 
E 770,104: POKE 771,166: POKE 7 
72,223: POKE 773,154: POKE 774, 
72: POKE 775,152: POKE 776, 72: 
POKE 777, 96 

37 PRINT D$"BLOAD ALPHA, A" S: POKE 
232, 0: POKE 233, 64 

40 POKE 34,0: TEXT : HOME : PRINT 
TAB ( 11) "COURBES DE FONCTIONS 

50 PRINT TAB ( 11) " 



60 PRINT : PRINT "CHOISISSEZ ENTRE 

■ 

70 PRINT : PRINT "1-COORDONNEES PA 
RAMETRIQUES" : PRINT TAB ( 18) "X 



80 

90 

100 
110 
119 

120 



130 



140 



145 

150 

160 



170 



180 



130 



195 
199 
200 

210 



=F(T) , Y=G(T) 

PRINT : PRINT ,r 2-C0ORDONNEES PO 
LA IRES " : PRINT TAB ( 18) "R=F (T) 
PRINT : INPUT "VOIRE CHOIX:";CH 
0IK$; IF CHOIX$ = "1" GOTO 120 
IF CHOIX$ = "2" GOTO 200 
PRINT "CHOIX ERRONE": GOTO 90 
REM INTRODUCTION X=F(T), Y=G (T 
) ** 

HOME : PRINT : PRINT "INTRODUC 
TION DES FORMULES": GOSUB 130; 

GOTO 150 
PRINT : INPUT "FORMULE AVEC PA 
RAMETRE f M' (0)?"/A$; IF A$ — 
"O" THEN PAR = 1 

IF FIRST THEN PRINT : PRINT " 
RESPECTEZ LA SYNTAXE DU BASIC" 

: PRINT "VOUS POUVEZ UTILISER 

'PI 9 ET 'E ' " 
RETURN 

PRINT : PRINT "FORMULES:": INP 
UT "X=";F$: INPUT "Y=";G$ 
PRINT : PRINT "VALEURS EXTREblE 
S DE X(SINON:Xl=-7,X2=7) : ": IN 
PUT "X1=";X1$: IF Xl$ = "" THE 
N Xl$ - "-7"; HTAB 4: VTAB PE- 
EK (37) : PRINT Xl$ 
INPUT "X2=";X2$: IF X2$ = "" T 
HEN X2$ = "7": HTAB 4: VTAB P 
EEK (37) : PRINT X2$ 
PRINT : PRINT "VALEURS EXTREME 
S DE Y(SIN0N:Y1=-4,Y2=4):": IN 
PUT "Y1=";Y1$: IF Yl$ = THE 
N Yl$ = "-4": HTAB 4: VTAB PE 
EK (37) ; PRINT Yl$ 
INPUT "Y2=";Y2$: IF Y2S = n » T 
HEN Y2$ = "4": HTAB 4: VTAB P 
EEK (37) : PRINT Y2$ 
GOTO 240 

REM INTRODUCTION R=F (T) ** 
HOME : PRINT "INTRODUCTION DE 
LA FORMULE": GOSUB 130 
PRINT : PRINT "FORMULE:": INPU 



42C0- 27 28 2D BS 3F 00 22 17 

42C8- DC OC OC If 08 IF 08 IF 

42D0- 08 05 00 B6 1C OR 64 OC 

42D8- 1C 3F 17 04 00 38 OC 70 

42E0- OE 17 15 3F BF OE 2D 25 

42E8 &4° 00 3A 37 26 24 64 OC 

42FQ- M 08 Q& 15 36 2f 36 04 

q& *s tsl % vs> 

4300- F6 3F 27 24 00 IB 24 OC 

4308- 2D 15 96 F2 3F IF 08 24 

4310- 00 IB 24 2C 2D 15 36 36 

4318- IF. 3F 27 24 00 AD 12 3F 

4320- 3F 24 2C 27 24 2D 2D 07 

4328- 00 3D 3F 36 26 24 24 2C 

4330- 2D 3D 00 2A 35 3E 3F IF 

4338- 08 24 24 OC 2D 3D 00 2D 



4340- 36 26 24 24 FC IB 36 2E 
4348- 37 36 04 00 24 3C 20 37 
4350- 36 36 3E 2D 07 00 QR 77 
4358- 2D ID 08 24 24 34 00 3B 
4360- 36 6E 09 1C 1C 1C 08 ID 
4360- 00 OC DF 33 36 00 IB 24 
43/0- 34 3b 3b 2E 2D 3D 00 IF 
«vm- 1ft 1% 1A VK % <IC Vi 
4380- 36 36 36 04 00 IF 08 27 

4389- 34 36 36 6E 09 24 7F 24 

4390- 24 06 00 IB 36 OE 2D ID 
4398- 08 24 24 1C 3F 17 36 00 
43AO- 2D 20 1C 3F 37 36 3D 36 
43A8- 26 00 72 ID 08 24 E4 3F 
43B0- 17 36 36 OE 6D 05 00 2D 
43B8- 20 1C 3F 37 36 3D 36 26 



43C0- €C 15 15 04 00 3F 20 OC 
43C8- 2D 15 D6 15 F6 3F IF 08 
43D0- 06 00 36 26 24 24 3C 2F 
43D8- 2D 3D 00 IB 24 34 36 36 
43E0- OE 2D ID 08 24 24 34 00 
43E8- IB 24 34 36 76 15 OC ID 
43F0- 08 24 24 06 00 IF 24 34 

4A«- % ^^ v\ i<x is ta. ta 

4400- 24 06 00 1C IF 08 34 96 

4408- 32 64 0D 15 26 1C 08 18 

4410 ID 08 34 00 36 26 24 1C 

4418- 1C 6C 09 F6 07 00 IE IE 

4420- 2E 2D 25 18 08 18 ID 08 

4428- 3C 3F 2F 00 20 FO OD 07 

4430- 00 7? 16 OC 2C 1C 08 38 

4438- 3F 17 76 2D 00 IB 1C 00 



30 
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T "R=";F$ 
220 PRINT ; PRINT "V&LEUR EXTREME 
DE R (SINON R=4) ": INPUT "Rl = " 
;R1$: IF Rl$ = "" THEN Rl$ = " 
4": HTAB 4: VTAB PEEK (37) : P 
RTNT Rl$ 

240 PRINT : PRINT "VARIATIONS DE T 
(SINON :DE -PI A PI):": INPUT 
"DE T1 = ";T1$: IF Tl$ = "" THEN 
Tl$ = "-PJ"; HTAB 7: VTAB PE 
EK (37) : PRINT Tl$ 
245 INPUT "A T2=";T2$: IF T2S = "" 
THEN T2$ - "PI"; HTAB 6: VTAB 
PEEK (37) : PRINT T2$ 
250 M$ = "0":MD$ = "0":PM$ = "0": 
IF PAR THEN PRINT : PRINT "VA 
LEURS DE M:": INPUT "DE M=";M$ 
: INPUT "A M=";MD$: INPUT "PAS 
= ";PM$ 

255 PRINT : INPUT "VOULEZ-VOUS REP 

RENDRE CES DONNEES (0)?";A$: I 

F A$ = "0" GOTO 40 
260 HGR : HOME : SCALE= 1: ROT= 0: 

HCOL0R= 3 
300 REM CREATION PROCEDURE POUR I 

NTRODUIRE LES FONCT TONS DANS L 

E PROGRAMME * 
310 PRINT D$; "OPENPROCEDURE" : PRIN 

T D$; "WRTTEPROCEDURE 
320 IF CHOIX$ = "1 " THEN PRINT "9 

20X^"F$ ":Y-"G$: PRINT "4 60X$=" 

Q$ + F$ + Q$":Y$="Q$ + G$ + Q$ 

: GOTO 340 
330 PRINT "920X-COS(T)*("F$") :Y=SI 

N(T) *("F$") ": PRINT "490R$="Q$ 
+ F$ + Q$: PRINT "480R1 = "Rl 

$: GOTO 350 
340 PR TNT "44()X1 = "X1$":X2="X2$":Y1 

= "Y1$": Y2="Y2$ 
350 PRINT "420T1="T1$":T2="T2$":M= 

"M$ " : MD= "MD$ " : PM= "PM$ " : CHOI X= " 

CHOIX$ 
3 GO PRINT "RUN 4 00 



370 PRINT D$"CLOSEFROCEDURE 
3Q0 PRINT D$ "EXECFRQCEDURE 
390 END l REM ARRET POUR DECLENCH 
ER EXEC 

399 REM PREPARATION DONNEES ** 

400 PT = 4 * ATN (1):F. = EXP (1 ) 
: ONERR GOTO 1700 

410 D$ = CHR$ (4):Q$ = CHR$ (34) 

: PR TNT D$ "DFLF.TF.PROCF.DURF 
420 Tl = - PI:T2 = PI:M = 0:MD = 

PI / 2:PM - PI / 12:CH0IX » 1 
425 POKE 34,20: HOME 
430 IF CHOIX = 2 GOTO 480 
440 XI - - 7:X2 - 7:Y1 - - 4 :Y2 

= 4 

450 IF XI = X2 OR Yl = Y2 THEN PR 
INT "ERREUR SUR XI r X2 , Yl ,Y2" : 
GET A$: GOTO 40 

460 X$ = "2.5*C0S (T) *SIN(M) ":Y$ = 
"4*SIN(T) " 

470 GOTO 500 

480 Rl - 4 

490 R$ = "SINX" 

495 IF Rl < = THEN "ERREUR SUR 

Rl": GET A$: GOTO 40 
500 IF MD = M GOTO 520 
510 IF (MD - M) * PM < OR PM = 
THEN PRINT "ERREUR SUR M": G 

ET A$: GOTO 40 
520 HOME : INPUT "COURBE PAR POINT 

S (0)?";A$: IF A$ < > "0" THE 

N CO = 7 

530 PRINT : INPUT "TRACE DES AXES 
(0) ?";A$: IF A$ = "0" THEN AX 
= 7 

600 REM GRAPH I QUE ** 

610 IF CHOIX = 1 THEN T$ = "X=" + 
X$: GOSUB 1500:XA = :YA = YA 
* 10:T$ = "Y=" + Y$: GOSUB 150 
0: GOTO 640 

620 T$ = "R=" + R$: GOSUB 1500 

630 X2 - 1.75 + R1:X1 - - X2:Y2 - 
RlsYl = - Rl 
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00 


28 


15 


36 


FE 


IB 


24 


45fifl- 


3C 


2F 


25 


24 


06 


00 


38 


2F 


4470- 


36 


IE 


3F 


27 


24 


2C 


27 


34 


44F0- 


24 


2D 


00 


38 


17 


36 


OE 


2D 


4570- 


2D 


F5 


17 


17 


17 


2D 


2D 


07 


4418- 


00 


2D 


9b 


3F 


3F 


20 


OC 


05 


44F8- 


ID 


08 


24 


1C 


07 


00 


12 


2D 


4578- 


00 


60 


OC 


Db 


lb 


3E 


3F 


1C 


4480- 


oo 


BF 


16 


2D 


25 


24 


?F 


24 


4500- 


20 


1C 


3F 


37 


36 


3D 


36 


04 


4580- 


08 


11 


36 


OE 


2D 


3D 


00 


09 


4488- 


04 


00 


2A 


25 


1C 


3F 


17 


2E 


4508- 


00 


28 


35 


36 


36 


24 


3F 


3F 


4588- 


34 


36 


2F 


FE 


3F 


20 


24 


44 


4490- 


37 


OE 


2D 


3D 


00 


3D 


3F 


35 


•4S10- 


20 


OC 


05 


00 


29 


3D 


FF 


2E 


4590- 


15 


07 


00 


28 


1C 


08 


15 


16 


4490- 


36 


24 


24 


64 


AD 


04 


00 


38 


4518- 


37 


36 


04 


00 


09 


38 


3F 


17 


4598- 


3E 


3F 


1C 


08 


17 


36 


OE 


2D 


44A0- 


17 


16 


16 


2D 


ID 


08 


3C 


2F 


4520- 


OE 


2D 


15 


IE 


3F 


2F 


00 


28 


45A0- 


3D 


00 


C3 


18 


08 


4D 


39 


00 


44A8- 


25 


E4 


07 


00 


28 


15 


36 


FE 


4528- 


3F 


2F 


24 


36 


36 


76 


2D 


30 


45A8- 


IF 


lc 


08 


OD 


OD 


IE 


IF 


OE 


44B0- 


lb 


IE 


08 


24 


24 


3D 


24 


06 


4530- 


00 


09 


34 


3b 


3E 


FO 


3F 


20 


45BV- 


OD 


IE 


If 


17 


OD 


OD 


01 


00 


44B8- 


00 


24 


BO 


2F 


36 


36 


2F 


3D 


4518- 


24 


06 


00 


IB 


34 


76 


15 


OC 


4SB8- 


92 


1A 


2F 


2D 


2D 


07 


00 


DO 
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640 RX - (X2 - XI) / 279 :RY = (Y2 
- Yl) / 159: IF AX = GOTO 85 


650 REM AXES ET GRADUATION 

660 XO = - XI / RX:YO = 159 4 Yl 

/ RY: IF XO < OR XO > 279 GO 

TO 690 

670 HPLOT X0 f TO X0 f 159:YP = INT 

(Y2) : IF XO > 278 GOTO 690 
680 YY = (Yl - YP) / RY -f 159: IIPL 
■ OT XO + 1 , YY : YP = YP - 1 : IF Y 
P > = Yl GOTO 680 
690 IF YO < OR YO > 159 GOTO 850 
700 HPLOT 0,Y0 TO 279 r Y0:XP = INT 

(X2) : IF YO < 1 GOTO 700 
710 XX - (XP -XI) / RX: HPLOT XX, 
YO - 1:XP = XP - 1: IF XP > = 
XI GOTO 710 
850 DT = PI / 120 * SON (T2 - Tl) 
860 HOME 

900 REM TRACE DE LA COURBE ** 
910 T - Tl :IN « 

920 X = 2.5 * COS (T) * SIN (M) : 

Y = 4 * SIN (T) 
930 XX = (X - XI) / RX: YY = (Yl - 

Y) / RY + 159 
940 IF XX < OR XX > 279 OR YY < 

OR YY > 159 THEN IN - : GOT 

O 980 

950 IF IN * CO THEN HPLOT TO XX, 

YY: GOTO 970 
960 HPLOT XX, YY 
970 IN = 1 

900 T = T + DT: IF (T - Tl) * (T - 
T2) < = GOTO 920 



990 IN = : IF PM = GOTO 1010 
1000 M = M + PM: IF (MD — M + PM) 

* PM > GOTO 850: REM ITERA 

TION 

1010 HOME : INPUT "AUTRE FORMULE ( 

0)?";A$: IF A$ = "O" GOTO 40 
1020 END 

1499 REM AFFICHAGE HGR D'UNE CHAIN 
E T$ ** 

1500 S - 16384: A - S i PEEK (S + 
2) + 256 * PEEK (S + 3) :NB = 

PEEK (S):IC = 1:XB = PEEK 
(A - 6):YB ' PEEK (A - 5) 
1510 LO = LEN (T$) :DX = PEEK (A 

-8) + IC + 1 
1520 FOR I = 1 TO LO 
1530 AS = ASC ( MID$ (T$, 1,1)) 
1540 NF = PEEK (S + 2 * NB + 2 + 
AS) 

1550 DRAW NF AT XA -h XB, YA + YB 
1560 XA = XA + DX: IF XA > 270 THE 

N XA = 0:YA = YA + 10 
1570 NEXT : RETURN 
1700 REM TRAITEMENT ERREURS 
1705 CALL 768 

1710 ER = PEEK (222) :LI = PEEK ( 
218) + PEEK (219) * 256 

1715 IF ER = 16 THEN PRINT "ERREU 
R DE SYNTAXE": GET A$ : GOTO 4 


1720 IF (ER = 53 OR ER = 133) AND 
LI - 920 THEN IN = 0: GOTO 98 


1760 PRINT "ERREUR N["ER" LIGNE "L 
I: PRINT CHR$ (7) : END 



Vous avez un Apple Ite avec Chat Mauve ou an He ? 

Vous disposez de Pascal 12 ? 

Profitez de Tinterpreteur 
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D. s'agit d'un systeme graphique double-haute 
resolution ccrit en Pascal. 




Par Nicolas Montsarrat 

leg mt I "S? 



. points, ffii^S^fflS^E fcS^teS'M lESffi& 

dc insulation tnbs miissantcs I coclc; tangente, jgwgf fichier « Pe™ettre la repnse 
;ifttereecdons, pafalieles, etc. U est ainsi possible Q-i'i.-caicui. 



caieuler des distances, des angles. . . 



L'&iiteur perrfiet une saisie rapide du langage. 
Une instruction COCO peut-^tre ac&utee oes 
la saisie pour facili ter la mise au point, ou 

an sein d'un prograuiine. — — 

» t %J Mi I %J M£ 1 




.-S-S5S 



150,00 F TTC, franco 
Bon de commande page 74 
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'Startup' Basic sous ProDOS 

Pascal Cantot 



yoici un programme de 
STARTUP, presque 
enti&rement en Basic 
Applesoft. II occupe 17 
blocs, mais le ProDOS le charge 
en quelques sccondcs. P01N1 1 
execution plus rapide, il est 
possible de retirer les. REMs (a 
l'aide d'un compacteur par 
exemple...). 

STARTUP utilise les SO 
colonnes. Vous ne devrez done 
l'utiliser qu'avec un f/c ou un //e 
muni d'une carte 80 colonnes au 
standard d'Apple. 

Une fois charge, ce programme 
affiche le preface courant, la date, 
et eventuellement un titre 
correspondant i sa disquette de 
residence (ce titre est fixe en data 
S la ligne 1205). II va maintenant 
lire le repertoire principal du 
volume, puis affiche les premiers 
fichiers. 

Le fichier courant apparait en 
video inversee. Pour changer ce 
pointeur video, ou pour effectuer 
une operation sur le fichier 
courant, une trentaine de 
commandes sont dispoiiibles ; 

Deplacement 

• Les fleches <=1t=> et U de- 
placcnt d'un fichier, 

CTRL-W ct CTRL-X rc- 

monte ou redescend de 8 
fichiers. 

• CTRL-A et CTRL-Z ramene 
au debut ou & la fin du 
catalogue actuel. 

• CTRL-F place le pointeur en 
video inverse sur le fichier 
dont le nom a ete saisi (voir 
plus loin). 



Sous-catalogue 

• CTRL'! ouvre le fichier de 



type DIR couramment pointc, 
lit ce sous-catalogue et en 
affiche les fichiers. 

• DEL referme un sous- 
catalogue et reaffiche les 
fichiers du catalogue de niveau 
superieur. 



Utilitaires 

• ESC ou CTRL-C permettent 
de sortir de STARTUP apres 
confirmation. 

• ? affiche un ecran d'aide 
recapitulant l'ensemble des 
commandes. 

• CTRL-D pennet de saisir la 
date sous la forme 
JJ-MMM-AA. Le mois doit 
etre tape en lettres majuscules 
(et en frangais). Cette date sera 
inscrite sur les pages globales 
de ProDOS et pourra done etre 
utilisee pendant le restant de la 
session. 

• L'hcure est reglee par les 
touches : pour les heures, 
f] pour les minutes, (pour un 
clavier en mode US). 

Operations 
generates 

• /permet d'introduire un 
nouveau prefixe au clavier. 

• / ou 2 change le numero de 
drive (le prefixe est 
automatiquement reconnu). 
C'est 6galement un moyeu 
pratique de revenir directement 
au catalogue principal d'un 
volume. 

• CTRL-P imprime le repertoire 
(ou sous-rcpcrtoirc) courant. 
L'interface doit etre en slot 1. 
Aucun code de controle 
particulier n'est envoye mais la 
ligne 620 du programme est a 
votre disposition... 



Operations sur les 
fichiers 

• RETURN charge et execute le 
fichier SYS, BAS, TXT ou 
BIN pointe. 

• CTRL-/, le charge seulement. 

• * verrouille ou deverrouille le 
fichier. 

• CTRL-V le verifie 

• CTRL-E l'efface (apres 
confirmation). On pcut effacer 
un fichier de type DIR mais ie 
nombre de blocs disponibles 
ne sera plus correctement 
affiche. 

• CTRL-R renomme le fichier. 

En cas d'impossibilite d'executer 
la commande, quatrc cvcncmcnts 
peuvent se produire : 

- La commande est ignoree (cas 
d'un A L sur un fichier VAR ou 
TXT) 

- II y a un message d'erreur et le 
programme continue 
normalement (cas d'une saisie 
de date incorrecte). 

- II y a un message d'erreur 
ProDOS et le programme 
reddmarre a froid, par re lecture 
du repertoire (cas d'un I/O 
ERROR ou d'un WRITE 
PROTECTED). 

- II y a une erreur Applesoft : 
une improbable (?) erreur de 
ma part... 

Signalons que ce programme 
ignore le vcrrouillage des 
fichiers : AD efface un fichier 
yerrouille et A R laisse le 
verrouillage en place. Enfin, le 
programme utilise la commande 
FRE de ProDOS : verifiez que 
votre version de ProDOS la 
supportc. 

a 
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Programme STARTUP 

1 REM 'fr****************** 

2 REM * STARTUP ProDOS * 

3 REM * * 

4 REM * P.cantot, POM'S A 

5 REM ******************* 

10 DIM A$ (100, 5) , ER$ (19) , CM$ (20) , NF (5} , PX 

(5),C0M$(36) 
15 D$ - CHR$ (4): PRINT D$"PR*3": PRINT D 

$ "PREFIX": INPUT PR$;A$ (0,0) = PR$ 
20 FOR I = 768 TO 328: READ J; POKE I, J: 

NEXT :PLAY = 768:ERR = 796:BIP = 807 

25 VTAB 23: FOR 1 = 1 TO 10: PRINT " 

NEXT ; POKE 34,2: POKE 35,22 
30 GOSUB 1075: FOR I = TO 19: READ ER$ ( 

I) : NEXT 

35 DT m 49040:MO$ = "? ??JANFEVMARAVRMAIJUN 
JULAOUSEPOCTNOVDEC" : GOSUB 920 

40 CR$ = CHR$ (15) + "Return" + CHR$ (14 
) :SP$ = " 

45 ONERR GOTO 840 

50 POKE 34,0: VTAB 1: POKE 1403,0; PRINT 
CHR$ (15); CHR$ (26) ;PR$; CHR$ (14): 

PRINT : GOSUB 745 
55 VTAB 12: PRINT : PR TNT ,CHR$ (15)A$(Y, 

X) CHR$ (14) 
60 GOSUB 350 

65 VTAB 24: POKE 1403,0: PRINT CHR$ (26) 
"Entrez commando ou <?> pour aide. . . " 

70 ' GOSUB 260: PRINT D$"FRE" 
75 IF KEY - 6 OR KEY = 11 THEN GOSUB 330 
: GOTO 65 

80 IF KEY - 21 OR KEY = 10 THEN GOSUB 31 
0; GOTO 65 

85 IF KEY = 127 AND X THEN X = X - 1:Y - 

P(X): GOSUB 795; GOTO 65 
90 IF NOT NF(X) THEN 155 

95 IF KEY - 9 AND MID$ (A$ (Y, X) ,18, 3) - 

"DIR" AND X < 5 THEN 350 
100 IF KEY = 42 THEN 380 

105 IF KEY = 22 THEN PRINT D$ "VERIFY" MI 

D$ (A$(Y,X) ,2,15) : CALL BIPt GOTO 65 
110 IF KEY = 13 THEN 710 
115 IF KEY = 12 THEN 685 
120 IF KEY =18 THEN 40b 
125 IF KEY = 5 THEN 455 

130 IF KEY - 1 THEN Y = 1: GOSUB 8 05: GOT 
O 55 

135 IF KEY = 2K THF.N Y = NF(X) : GOSUB 805 
: GOTO 55 

140 IF KEY = 23 AND X > 8 THEN Y = X - 8: 

GOSUB 805: GOTO 55 
145 IF KEY - 24 AND Y < NF (X) -7 THEN Y 

= Y + 8: GOSUB 805: GOTO 55 
150 IF KEY = 6 THEN 510 
155 IF KEY =47 THEN 560 

160 IF KEY = 91 THEN MN = MN - 1 : GOTO 10 
20 

165 IF KEY = 93 THEN MN - MN + 1: GOTO 10 
20 

170 IF KEY = 123 THEN HH = HH - 1: GOTO 1 
020 

17b IF KEY = 125 THEN HH = HH + 1: GOTO 1 
020 

180 IF KEY - 4 THEN 970 
18b IF KEY = 63 THEN 1105 
190 IF KEY =49 THEN 590 
195 IF KEY - 50 WEN 595 

200 IF KEY = 27 THEN CALL BIP: CALL BIP: 

GOTO 895 
205 IF KEY -16 THEN 605 
210 CALL PLAY, 64,12: GOTO 65 



215 END 

220 REM -=* AFFICHE BLOCKS LIBRSS *=- 

225 VTAB 1: POKE 1403,49: PRINT CHR$ (15 
) "BLOCKS LIBRES: "BF " SUR "BO + BF; C 
HR$ (14) 

230 RETURN 

230 VTAB 24; PRINT " qu "CR$" " CHRf (29) 

240 'POKE 34,23: POKE 35,25: INPUT A$: POK 

E 34,4; POKE 35,22 
245 IF A$ = THEN 65 
250 RETURN 

255 REM CURSEUR *=- 

260 W = PEEK (1403) :KEY = 

265 POKE 1403, W: PRINT : GOSUB 285: I 

F KEY THEN 280 
270 POKE 1403, W: PRINT " "; : GOSUB 285: I 

F NOT KEY THEN 265 
275 IF PEEK ( ~ 16384) > 127 THEN 390 
280 POKE 1403, W: PRINT " ";: RETURN 
285 FOR 1 = 1 TO 40: IF PEEK ( - 16384) 

> 127 THEN KEY - PEEK ( - 16384) - 1 

28: POKE - 16368,0:1 = 40 
290 NEXT : RETURN 

295 IF PEEK (1063) < > 42 THEN POKE 10 

63,42; RETURN 
300 POKE 1063,32; RETURN 
305 REM -=* DSPLACE CURSEUR *=- 
310 IF Y > = NF(X) THEN CALL PLAY, 64, 12 

: RETURN 

315 VTAB 12: PRINT : NORMAL : PRINT A$ (Y, 
X); CHR$ (23) ; IF Y < NF (X) - 9 THEN 
VTAB 22: PRINT A$ (Y + 10, X) ; : POKE 1 
403,0 

320 VTAB 13: INVERSE :Y = Y + 1; PRINT A$ 

(Y,X); CHR$ (14) 
325 RETURN 

330 IF Y = 1 THEN CALL PLAY, 64,12: RETUR 
N 

335 VTAB 12: PR TNT : NORMAL : PRINT A$ (Y, 
X)/ Cim$ (22) : IF Y > 9 THEN VTAB 5: 
PRINT A$(Y - S,X) 
340 VTAB 13: INVERSE :Y = Y - 1: PRINT A$ 

(Y,X); CHR$ (14) 
345 RETURN 

350 A$ = MTD$ (A$ (Y,X) ,2, 15) :P (X) = Y:X = 
X 4 1 

355 J = 15: FOR I = 1 TO 15: IF ASC ( MID 

$ (AS, I)) = 32 THEN J = I - 1:1 = 15 
360 NEXT :A$(0,X) - LEFT$ (A$,J) + "/" 
365 GOSUB 745 
370 GOTO 65 

375 REM -=* LOCK/UNLOCK *=- 

380 A$ = "LOCK"; I = 42: IF ASC (A$ ( Y, X) ) 

= 42 THEN A$ = "UNLOCK" : I - 32 
385 PRINT D$;A4r MID$ (A$ (Y, X) , 2, X5) 
390 A$(Y,X) = CHR$ (I) * MID$ (A$(Y,X),2 
) 

395 GOTO 55 

400 REM — * RENAME *=- 

405 VTAB 24 :WS = MID$ (AS (Y, X) , 2, 15) : PO 

KE 1403, 
410 PRINT "Nouveau nom"; 
415 GOSUB 235 

420 I - 0: IF ASC (A$ (Y, X) ) = 42 THEN I = 
1 

425 PRINT D$"UNLOCK"W$:A$(Y,X) = " " + M 

ID$ (A$(Y,X),2) 
430 PRINT D$ "RENAME" "A$ 
435 A$(Y,X) = " " + LEFTS (A$ -f SP$,15) + 

MID$ (A$(Y,X) f 17) 
440 IF I THEN PRINT D$ "LOCK"A$ ;A$ (Y, X) - 

"*" + MIDS (A$(Y,X),2) 
445 GOTO 55 

450 REM -=* DELETE *=- 



34 



Pom's n° 22 



455 VTAB 24: POKE 1403,0: PRINT CHR$ <29 
) "Attention: le fichler sera DEFINITI 
VEMENT efface! Continue (O/N) ? "; 

460 CALL BIP: CALL BIP 

465 GOSUB 260: IF KEY < > 79 AMD KEY < 

> 111 THEN 55 
470 J m VAL ( HTD$ (A$ (Y, X) , 21, 9) ) 
475 A$ = MID$ (A$(Y,X) ,2,15) : PRINT D$ "UN 

LOCK"A$: PRTNT D$ "DELETE "A$ 
400 FOR I — y TO NF (X) :A$(X,X) = A$ (I + 1 

, X) : NEXT 

485 NF(X) = NF(X) - 1: IF Y > NF (X) THEN Y 
= NF(X) 

490 BO = BO - J:BF = BF + J: GOSUB 225 

495 GOSUB 805 

500 PRINT D$ "FRE " : GOTO 55 

505 REM -=* RECHERCHE FICBZER * — 

510 VTAB 24: POKE 1403,0: PRINT "Norn du f 

ichier"; 
515 GOSUB 235: PRINT D$"FRE" 
520 I = 1:A$ - LEFTS (A$ + $P$, 15) 
525 IF A$ = MID$ (A$ (I, X) , 2 , 15) THEN 540 
530 I • I + I; XF X < - NF(X) THEN 525 
535 CALL BIP: CALL BIP: GOTO 55 
540 y= I; CALL PLAY768 , 32, 32 
545 GOSUB 805 
550 GOTO 55 

555 REM -=* CHANGER PREFIXS *=- 

560 VTAB 24: POKE 1403,0: PRINT "Prefixe" 

565 ' GOSUB 235: VTAB 5 

570 PRINT D$"PREFIX"A$ 

575 VTAB 5: PRINT D$ "FRE " 

580 PRINT D$ "PREFIX": INPUT PR$:X = 

585 A$(0,0) - PR$: GOTO 50 

590 PRIN1' 0$ "PREFIX, Dl": GOTO 575 

595 PRTNT D$ "PREFIX, D2 " : GOTO 575 

600 REM — ■* IMPRIME LS REPERTOXRX *=- 

605 VTAB 24: POKE 1403,0: PRINT CHR$ (26 

) "Veriflez 1 ' imprlmante et appuyez su 
r "CR$" "/ 

610 GOSUB 260: IF KEY < > 13 THEN CALL 

PLAY64,12: GOTO 610 
615 ' PRINT D$"PRil" 

620 REM eventuellewent codes vtrl de votr 

e impr.ici 
€25 PRINT DT$ n "TI$: PRINT 

630 PRINT "PREFIX: "PR$; PRINT : PRINT T$ 

: PRINT 

635 PRINT : FOR 1 = 1 TO NF (X) : PRINT A$ ( 

I, X) : NEXT 
640 PRINT : PRINT "BLOCKS LIBRES: "BF" 

BLOCKS OCCUPES: "RO" TOTAL: ■ 

BO + BF 
64 5 PRINT D$ "PR§3 " 

650 POKE 34,0: VTAB 1: PRINT CRR$ (15) C 

HR$ (26) ;A$(0,0) ; CHR$ (14) 
655 PRINT PR$; GOSUB 920 
660 INVERSE : PRINT T$" ";: NORMAL 

665 VTAB 23: FOR I - 1 TO 20 : PRINT " 

NEXT ; POKE 35,22 
670 GOSUB 805 
675 GOTO 55 

680 REM -=* LOAD/EXECUTE FICHIER *=- 

685 A$ = MTD$ (A$ (Y, X) , 2, 15) :W$ = MID$ ( 

A$(Y,X),18,3) 
690 IF W$ m "BAS " THEN PRINT D$"PR§3": P 

RINT D$"LOAD"A$ 
695 IF W$ < > "BIN" THEN 210 
700 PRINT D$"PR43": PRINT D$ "BLOAD "A$ 
705 END 

710 A$ - MID$ (A$(Y,X) ,2,15) 
715 CALL BIP 

720 VTAB 24: POKE 1403 ,0: PRINT CHR$ (26 
) "Appuyez aur " CHR$ (15) " C " CHR$ ( 



14)" pour executer "A$": "/ 

725^ GOSUB 260: IF KEY < > 67 THEN 210 
730 PRINT D$"PR43" 
735 PRINT D$" "A$ 
740 END 

745 REM -=* LIT UN DIRECTORY *=- 

750 Y - OrNF(X) - 999:PR$ = "": FOR 1 = 
TO X:PR$ = PR$ + A4(0,I) : NEXT 

755 PRINT D$"OPEN"PR$",TDIR": PRINT D$"RE 
AD"PR$ 

760 INPUT A$,T$,A$ 

765 INPUT A$ : IF A$ = "" THEN INPUT "";A 

$: GOTO 780 
770 A$(Y + 1,X) = A$:Y - Y + I; IF Y / 2 - 

INT (Y / 2) THEN GOSUB 295 
775 GOTO 765 
780 PRINT D$ "CLOSE" 

785 BF = VAL ( MID$ (A$,13)) :BO = VAL ( 

MID$ (A$,3S)): GOSUB 225: PRINT 
790 VTAB 2: PRINT :NF (X) - Y: POKE 1063,3 

2: PRINT CHR$ (15);T$" " CHR$ (14): 

POKE 34,4: PRINT :Y = 1 
795 A$ = "": FOR I = TO X:A$ = A$ + A$ (0 

f I): NEXT : PRINT D$"PREFIX"A$ 
800 REM -=* AFFICBE UN REPERTOIRE *=- 
$05 POKE 34,0: VTAB 2: POKE 1403, 0: POKE 

33,49: PRINT CHR$ (29);: POKE 33,80: 
FOR I = TO X; PRINT A?(0,1);: NEXT 
: GOSUB 920: PRINT : PRINT : POKF. 34 

810 HOME :Z1 = Y - 8: IF Zl < 1 THEN Zl = 
1 

815 Z2 = Y + 9: IF Z2 > NF (X) THEN Z2 = NF 
(X) 

820 FOR I = Z2 TO Zl STEP - I: VTAB 13 + 
(I - Y) : POKE 1403,0: PRINT A$ ( I, X) / 

; NEXT : PRINT 
825 INVERSE : VTAB 13: PRINT A$ (Y, X) : NOR 

MAL 
830 RETURN 

835 REM -=* TRAITEMENT D ' ERREUR *=- 

840 CALL ERR:W - PEEK (222) : CALL BIP: C 

ALL BIP 
845 PRINT CHR$ (4) "CLOSE" 
850 IF W - 255 THEN 895 

855 VTAB 24: POKE 1403,0: PRINT CHR$ (26 
); "ERREUR 

860 IF W AND W < 22 THEN PRINT "ProDOS: 

"ER$(W - 2);: GOTO 870 
865 PRINT "APPLESOFT numero "W; 
870 PRINT n , ligne " PEEK (218) + PEEK ( 

219) * 25 6; 
875 PRINT Appuyez sur "CR$ n ... "/ 
980 GOSUB 260: IF KEY < > 13 THEN 880 
885 RUN 

890 PRINT D$ "FRE " 

895 VTAB 24: POKE 1403,0: PRINT CHR$ (26 

) "Quitter (O/N) ? "; 
900 GOSUB 260: IF KEY < > 79 AND KEY < 

> 111 THEN 55 
905 PRINT D$"PR§3" : POKE 783,80: CALL PLA 

Y,0,Q: POKE 783,81: PRINT D$ "PREFIX" A 

$(0, 0) 
910 END 

915 REM -=* GESTION DATE *— 
920 REM *** Lecture et affichage 
925 W - 0:Z1 = PEEK (DT f 1) :Z2 - PEEK ( 
DT) 

930 IF INT (Zl / 2) * 2 < > Zl THEM Zl 

= Zl - 1:Z2 - Z2 + 128:W - 4 
935 AA = INT (Zl / 2) :MM = INT (Z2 / 32) 

+ W:JJ = Z2 - INT (Z2 / 32) * 32 
940 IF i7J - OR JJ > 31 OR AA > 99 OR MM 
^ OR MM > 12 THEN DT$ = "Sans date 
": GOTO 950 
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945 DT4 = RIGHT$ ("0" + STR$ (JJ),2) f " 
-" -f MID$ (MO$,MM * 3 + 1,3) + "-" + 
RIGHT$ ("0" + STR$ (AA),2) 

95V HH = PEEK (DT + 3) :MN = PEEK (DT + 2 
) 

955 TI$ - RIGHT$ ("0" + STR$ (JJR) , 2) + " 
:" f RIGHT9 ("0" + STR$ (MN),2) 

960 VTAB 2: POKE 1403,49: PRINT CHR$ (15 
)" Date: "DT$ " Time: "TI$; CHR$ (29 
) CHR$ (14) 

965 RETURN 

970 REM *** Entree dc la date *** 

975 VTAB 24: POKE 1403, 0: PRINT "Entrez d 

ate (JJ-MMM-AA) "; : GOSUB 235 
980 W = VAX ( LEFT$ (A$,2)) : IF W < 1 OR 

W > 31 THEN GOTO 1055 
985 JJ = W:W$ = MID$ <A$,4,3) :W = 1: FOR 

I = 1 TO 12: IF W$ = MID$ (MO$,I * 3 
f 1,3) THEN MM = J;ff = 
990 NEXT : IF N THEN 1055 
995 AA - VAL ( MID$ (A$,8,2)) 
1000 Z2 = MM * 32;Z1 - AA * 2: IF 22 > 255 

THEN Z2 = Z2 - 256:Z1 = Zl + 1 
2005 Z2 m Z2 + JJ 

1010 POKE DT,Z2: POKE DT + 1, Zl 

1015 GOSUB 920: GOTO 6b 

1020 REM *** Regler heure *** 

1025 IF MN > 59 THEN HH = HH + 1:MN = 

1030 IF MN < THEN MN = 59:HH = HH - 1 

1035 IF HH > 23 THEN HH = 

1040 IF HH < THEN HH - 23 

1045 POKE DT + 3,HH: POKE DT + 2,MN 

1050 GOSUB 955: GOTO 65 

1055 VTAB 24: POKE 1403,0: PRINT CI1R$ (2 

6) "ERREUR: date incorrecte! "; 
1060 CALL BIP: CALL BIP: GOSUB 260 
1065 GOTO 65 

1070 REM GENERIQOE *=- 

1075 VTAB 6 

1080 READ A$: IF A$ - "£ " THEN 1095 

1085 POKE 36,40 - LEN (A$) / 2 : PRINT A$ 

: CALL PLAY, 8,16: PRINT : PRINT 
1090 FOR I 1 TO 200: NEXT : GOTO 1090 
1095 RETURN 

1100 REM -=* AFFICHE COMMANDSS *=- 

1105 IF COM THEN 1130 
1110 1=0 

1115 READ A$,W$: IF A$ = "i" THEN 1125 

1120 COM$(I) = A$ + LEFT$ (" 8 - 

LEN (A$)) + W$:I = J + 2; GOTO 1115 
1125 COM m I 

1130 POKE 34,4: POKE 35,22: HOME 
1135 POKE 1403,26: PRINT LISTE DES C 

OMMANDES *=-"; PRINT 

1140 FOR I = TO COM STEP 2 



1145 PRINT COM$(I);: POKE 1403, 40: PRINT 

COM$(I + 1) 
1150 NEXT 

1155 VTAB 24: PRINT "Appuyez sur une touc 

he... "; CHR$ (29);: GOSUB 260 
1160 GOSUB 805 
1165 GOTO 55 
1170 REM 

1175 DATA 32, 190,222, 32, 70, 231, 134,81, 44, 
48, 192, 136 r 208, 4, 198, 81, 240, 8, 202, 208 
, 246, 166, 80, 76, 8, 3, 96, 

1180 DATA 104, 168,104, 166,223, 154, 72, 152, 
72,96, 

1185 DATA 162, 32,169,2, 32, 168,252, 141,48, 
192,169,36, 32, 168,252,141, 48,192,202, 
208, 237 f 96 

1190 REM 

11S5 DATA STARTUP ProDQS,Faz Pascal Canto 

t pour POM'S 
1200 REM (Norn de la disquette) w 
1205 DATA DISQUETTE DE DEMONSTRATION 
1210 DATA i 
1215 REM 

1220 DATA RANGE ERROR, NO DEVICE CONNECTED 

, WRITE PROTECTED 
1225 DATA END OF DATA, PATH NOT FOUND, PATH 
NOT FOUND 

1230 DATA I/O ERROR, DISK FULL, FILE LOCKED 
7235 DATA TNVAT.TD OPTION, NO BUFFERS AVAIL 
ABLE 

1240 DATA FILE TYPE MISMATCH, PROGRAM TOO 
LARGE 

1245 DATA NOT DIRECT COMMAND , SYNTAX ERROR 

, DIRECTORY FULL 
1250 DATA FILE NOT OPEN, DUPLICATE FILENAM 

E 

1255 DATA FILEBUSY, FILE (S) STILL OPEN 
1260 REM 

1265 DATA ESC, Quitter, Fleches, defilement 
directory 

1210 DATA A W A X,Deplacent de 8 fichiers, A 
A *Z, Debut /Fin du repertoire 

1275 DATA Tab,Ouvre le flakier DIR,Del,Fe 
rme le flchler DIR 

1280 DATA Return, Execute, *L, Charge (BAS e 
t BIN) 

1285 DATA ^D, change Date, 6e [ ] , reglent heu 

res/minutes 
1290 DATA /, Change pre fixe, 1/2, change dri 

ve 

7295 DATA *, Lonk/Un l ock, *F., Delete 

1300 DATA *R, Rename, *V, Verify 

1305 DATA "F,Cherche tlchier, n t>, Imprime x 

epert olre 
1310 DATA 



* Accompagne d r une cinquantaine de pages de documentation, §isk Manager permet de reorder 

' tes cornmandes du Dos, redefinir I 'organisation d'urie disquette, grace a un jeu d' instructions qui 

J en fait un langage simple d'acces d la disquette, II offre egalement un programme simple d'edition 

' a I' aide de cornmandes evoluees. 4 utilitairesfigurent aussi sur la disquette : 

f Ulili-disque : reconstruction d'urie disquette detruite, Verification, Plan d'occupation 

, Ultra-copie : pour un backup purticuUerement rap 'ule 

„ Edicca : Edinon du catalogue, classement des fichiers, Tares. . . 

, Mulli-disque : pour le classement de tons vos programmes ( tri instantani). 

y 
* 

5isk Manager, le Dos en Kit 
de Dan Steevey 

+ + ***************** S 
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Ce petit programme 
pennet d'inserer des 
titres dans un 
programme Basic a 
l'aide de REMs sans que Ton voie 
ni le numero de ligne, ni le mot 
REM. 

11 s'utilisc de la maniere suivante ; 

• Lancement par 
BRUN TITRES.OBJ 

• Chaque fois que Ton veut faire 
un titre : &T < RETURN > f nnnn 
(une touchc), nnnn etant le 
numero de ligne, l'appui d'une 
louche faisant apparaiue "REM" 
puis le texte et <RETURN>. II ne 
se passe alors rien, en 
apparence . . . L'appui d'une 
touche non mumerique apres &T 
<RETURN> fait sortir du mode 
litre. 

Fonctionnement 

Ce programme ; 

• revectorise 1'ampersand, 

• deroute CHRGET ($B1) et 
teste si on entre bien un numero 
de ligne : 

- si oui, il ecrit dans le buffer 
d'entree 'REM', et un nombre de 
controle-H et d'espaces qui 
depend de la longueur du numero 
de ligne. 

- si non, il rend la main a 
Applesoft. 

G 



Recapitulation 
TITRES.OBJ 



0300- 


A9 


4C 


8D 


F5 


03 


A9 


10 


OD 


0308- 


F6 


03 


A9 


03 


8D 


F7 


03 


60 


0310- 


C9 


54 


FO 


03 


4C 


C9 


OF. 


20 


0318- 


Bl 


00 


DO 


79 


A9 


01 


8D 


96 


0320- 


03 


A5 


38 


85 


FE 


A5 


39 


85 


0328- 


FF 


A9 


34 


85 


38 


A9 


03 


85 


0330- 


39 


4C 


EA 


03 


20 


13 


FD 


48 


0338- 


AD 


96 


03 


DO 


02 


68 


60 


68 


0340- 


CP 


BO 


30 


08 


C9 


BA 


10 


04 


0348- 


9D 


00 


02 


60 


EO 


00 


FO 


3E 


0350- 


A9 


D2 


9D 


00 


02 


20 


SC 


DB 


0358- 


E8 


A9 


C5 


9D 


00 


02 


20 


5C 


0360- 


DB 


E9 


A9 


CD 


9D 


00 


02 


20 


0368- 


5C 


DB 


E8 


8A 


18 


69 


03 


85 


0370- 


FC 


A9 


88 


9D 


OO 


02 


E8 


C6 


0378- 


FC 


DO 


F8 


8A 


18 


69 


03 


4A 


0380- 


85 


FC 


A9 


AO 


9D 


00 


02 


E8 


0388- 


C6 


FC 


DO 


F8 


A9 


81 


48 


A9 


0390- 


00 


8D 


96 


03 


68 


60 


00 





1 

X 






M 


2 







M 


o 






M 

M 


Af 





Re 


M 



Des ti 
dans 1 
Bas i c r 
Sylvie 



res 

Gallet 



Programme TITRES.SCE 
(Assembleur Lisa 2.5) 



2 


r 






5 7 


SUITE : 






p 


* TTTRBS 


DANS UN 


Iff 

.1 CI 




CMP 


4SR0 

W Mf III! 


3 








59 




BMI 


ECR . REM 


4 


* PROGRAMME 


60 




CMP 


f$BA 


5 


* 






61 




RPT. 


F.CR . REM 


6 








62 




STA 


$200, X 


7 


HOOK 


EPZ 


$38 


63 




RTS 




8 


AUX 


EP2 


SFE 


64 








9 


OUTDO 


EQU 


$DB5C 


65 


EC R. REM: 






10 


KEYIN 


sou 


SFD1B 


66 




CPX 


i$0 

W Y V 


12 


AMPER 


EQU 


S3F6 


~ 7 




BEQ 


FIN 


1 2 


X.REG 


EPZ 


SFC 


68 




I j) A 


1 "H" 


13 


STXERR 


EQU 


5DEC9 


69 




STA 


5200.X 


14 


CI1RGET 


EPZ 


$B1 


70 




JSR 


OUTDO 


15 








71 




INX 




1 6 




ORG 


5300 


72 




LDA 


t"E" 


1 7 




OBJ S3 00 


73 




STA 


$200, X 


18 








74 




JSR 


OUTDO 


19 


INIT: 






75 




INX 




20 




IDA 


t$4C 


76 




LDA 


t~M" 


21 




ST A 


AMPER- 1 


77 




STA 


$200, X 


22 




IDA 


tDEB.TITR 


78 




JSR 


OUTDO 


23 




STA 


AMPER 


79 




INX 




24 




LDA 


/DEB.TITR 


80 




TXA 




25 




STA 


AMPERil 


31 




CLC 




26 




RTS 




82 




ADC 


t$3 


27 


. 






S3 




STA 


X. REG 


28 


DEB.TITR 






34 




LDA 


§$88 


29 




CMP 


t'T' 


85 


ECR . CTRH 






30 




BEQ 


TITRE 


36 




STA 


$200, X 


31 




JMP 


STXERR 


37 




INX 




32 


TITRE: 






88 




DEC 


X.REG 


33 




JSR 


CHRGET 


89 




BNE 


ECR. CTRH 


34 




ONE 


HTS 


90 




TXA 




■?s 

j j 




IDA 


$$01 


91 




CLC 




36 






PA35E 


92 




ADC 


i$3 


37 




IDA 


HOOK 


93 




LSR 




38 




STA 


AUX 


94 




STA 


X.REG 


39 




LDA 


HOOK+1 


95 




LDA 


*$a0 


40 




STA 


AUX+1 


96 ECR.ESP: 






41 




LDA 


» TESTS 


97 




STA 


$200. X 


42 




STA 


HOOK 


98 




INX 




43 




LDA 


/TESTS 


99 




DEC 


X.REG 


44 




STA 


UOOKi 1 


100 




BNE 


ECR.ESP 


4b 




JMP 


$3EA 


101 




LDA 


fSBl 


46 








102 


FIN: 






47 


TESTS : 






103 




PHA 




48 




JSR 


KEYIN 


104 




LDA 


450 


49 




PHA 




105 




STA 


PASSE 


50 




LDA 


PASSE 


106 




PLA 




51 




BNE 


SUITE. PL 


107 


RTS: 






52 




PLA 




108 




RTS 




53 




RTS 




109 


PASSE 


BRK 




54 








110 


LONGUEUR 


EQU 


PASSE+1-INIT 


55 


SUITE. PL: 






111 




END 
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Tant qu'a faire 5 choses a la fois, 



a7Z 



Que ceuxqui 
aiment travailler en 
fuisant deux ou trois 
choses a la fois ne 
changent rien, au 
contraire, avec 
Apple et Jazz its 
peuvent faire mieux. 
Jazz de Lotus, c'est un programme 
cree pour Macintosh 512 Ko, equipe d'un 
lecteur externe qui permet de devenir un 
parfait jongleur professionnel. 

Cinq programmes en concert, 
c'cst-a-dirc un tablcur, un graphcur. un 
gestionnaire de fichier, un traitement de 
texte et un programme de 
communication reunis en un seyl 
programme. On comment etre a cinq 
sur la m&me soui'is. 



Pouvoir gerer cinq applications a 
partir d'un seul ecran. modifier une 
donnee dans une application et quelle 
se modifle automatiquement dans les 
autres. pouvoir sauter d'un graphe a un 
traitement de texte sans attendre les 
secondes qui durent une eternite pour 
changer de programme, c'est bien... 

Quand on s'apercoit que ces cinq 
programmes sont individuellement 
excellents. c est une revolution. 

Jazz, c'est l'outil ideal d'un directeur 
de service. 

Prenons tin cxcmplc qui exigc beaucoup 
de souplesse. de rapidite, et de doigte, la 
direction des services secrets : 
- Avec un tableur capable d'afllcher 
8 192 lignes sur 256 colonnes. la gestion 
devient beaucoup plus facile. Si un fait 



nouveau apparait, rien n esJ pi» 
que d'etudier deux ou trois hypotheses 
afin de ne pas etre pris de court. 
- Quand un projet est fin pret, il faut 
bien le presenter a ses superieurs et 
parfois m&me beaucoup plus haut; un 
graphotu' permet de transformer toutes 
les donnfies nunifiriques obscures en 
graphiques lumineux. 



, M 



- Si le projet est accepte, un traitement 
de texte est necessnire pour que chaque 
agenl eoneenie soil au courant dans ses 
moindres details. Evidemment quand 
on travaille dans un tel service i vaut 
mieux pom* Macintosh pouvoir copier, 
effacer. modifier, on coller des dessinsi 
chaque instant. 



i" 

d 





Apple Computer France. Avenue de t'Ocearne 



autant les faire en meme temps. 



• Fichier Edition Graphe Trace flne tar oc. Style 

flgrandir 



000 



Pressepapiers 
Tableau des references 



I DENIES 



Marthe 



6 Venter 



10 



1 1 



14 



Benefice brut 



Frais 



Transports 



Publicite 



11 

13jCornmi33ion3 



1 6 Total des frais! 573 
17 



LIENTES 



Marthe Choc o 
REPARTITION 
Directeurs Uentes 




: . l Yentes 
Benefices 



.jerrie trim Seme trim 



Ventlle di travail Jazz. 




Ik de COurulxeuf. B.R 151. 9844 Les His Cedex. 




Grace a son gestionnaire de fichier, Jazz 
fait la fusion automatique entre un 
mfimo et une liste de correspondants a 
sekctionner selon un critfere special. 
Et avec un modem full duplex 1 200 bauds 
en un instant votre correspondant 
repoit toutes les informations precises a 
Fautre bout du inoude. 
Avec Jazz Fcntrcprisc est rentable, 
rondement menee, precise et discrete, 
inutile d'avolr 35 collaborators pour 
rediger le projet. 

Jazz c est cinq programmes lies 
entre eux si parfaitement que Fagent 
double est enfin enterre, place a I'agent 
quintuple. 




Apple 



.9 o 



II 



JS3 

s g. 



It 



de mot_5 

rt\ r 1 ^ r\ n q 



Pom's public des articles et 
programmes destines au 
Macintosh depuis septembre 84 
(numero 14) et nous nous 
sommes apergu - non sans une 
ccrtainc emotion - qu'aucun jcu 
n'avait encore trouve sa place 
dans nos culonnes. 



facility 



Reporter la ligne precedente 
Deuoiler la premiere lettre 



Deuoiler la seconde lettre 



Deuoiler la troisieme lettre^ 

Deuoiler la cinquieine lettre 
Deuoiler la solution 
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mm 
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mm 

mm 
mm 
mm 




mm 
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mm 

mn 



EE 
fll 
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lE 
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m 

Nl 



Pour palier eela, nous vous proposons un petit casse-tete directement deVive* du 
celebre "Master Mind". Les couleurs one 616 ici remplacfes par les 26 lettres de 
I'alphabet et il ne s'agit plus de trouver des codes, mais des noms communs de 
cinq lcttrcs choisics au hasard par le Macintosh. 

Utilisation du programme 

Le gros avantage du Macintosh, e'est qu il n'est pas necessaire - grace aux menus 
deroulants - de passer plus de temps a I'ecriture du mode d'emploi qu'a celle du 
programme. Le seul point qui ne soit pas Evident concerne ici les r^ponses a vos 
essais : la colonne de reponse situee au dessus du bouton " Valider" (voir la copie 
d'ecran ci-contre) indique le nombre de lettres mal place'es, alors que la colonne 
situee plus a gauche indique le nombre de lettres bien plaeees, la somme des deux 
colonnes indiquant le nombre de lettres re*ellement presenter dans le mot recherche. 

Si vous ne dispose/ pas de la disquette 22... 

.. . il vous taudra, bien sur, saisir le programme et, dans ce cas quelques rappels et 
indications ne sont peut etre pas inutiles : 

• les indentations indiquent la continuity de la ligne ; 

• il faut prendre garde a ne pas remplacer les (zero) par la lettre O (ou rin verse) ; 

• lorsque des valeurs en hexadecimal apparaissent dans le programme, il 
ne faut pas oublier le "&" ou le "h", 

surtout dans les DATA. 
Le programme ne fonctionne pas sans 
un fichier de mots ; sa creation, avec le 
programme "Crefich" est done 
necessaire. Nutuns loutefois qu'il 
n'est pas indispensable d'avoir un tres 
grand nombre de mots com me dans le 
fichier de la disqueue 22 (2135). ^ 



Mot numero 2136 : 


SULKV 




OK 









105 Mots 

pour commencer la 
constitution du fichier 

(ils sont extraits du fichier "Mots' 
aucompagnanl le programme sur la 
disquette 22, et constitue de 2135 

noms communs) 



ABACA 
AIGLE 
AMIDE 
ARENE 
AUTEL 
RARBF. 
BERYL 
BLUES 
BOXER 
BUT0R 
CANON 
CESTE 
CLICK 
COKUN 
CROUP 
DECCA 
DINAR 
DUITE 
EMPAN 
ETHER 
FAUTE 



ACCRU 
AJOUT 

AHURE 
ARMEE 
AVOIR 
RARRF. 
BIAIS 
B0GUE 
BREME 
CABRI 
CARAT 
CHAUX 
COAT I 
COUAU 
CUMIN 
DEGEL 
DJINN 
EBATS 
ENCIN 
EVADE 
FELON 



ADAGE 
ALGOL 
ANIER 
ARYLE 
SAC HE 
"RATON 
BIFFE 
BONDE 
BROKE 
CAGET 
CAR ME 
CHIPS 
COGNE 
C'KAbili 
CYGNE 
DELTA 
DONNE 
ECOLE 
EPAVE 
EXODE 
FERTE 



AGAPE 
ALLEU 
AORTE 
ATELE 
BAGNE 
BEDON 
BILLE 
BOREE 
DRUNI 
CAYEU 
CASTE 
CHYME 
COLZA 
CRAWL 
DAMAS 
DESIR 
DOUVE 
EDILE 

EPOUX 

FAIRE 
FILET 



AGORA 
ALYTE 
APPAT 
AUBIN 
BALSA 
BF.NF.T 
BLAIR 
BOUEE 
BULGE 
CALOT 
CELTE 
CIRSE 
COPIE 
CREVE 
DATTP 
DIANE 
DRILL 
ELEIS 
ESTER 
FANON 
FiOLE 
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Programme "Jeu de mots" 

Ce programme requiert la presence d'un fichier de mots. Si 
vous ne disposez pas de la disquette 22 , ce fichier peut etre 
constitue a I'mde du programme "CreFich" . 



ON BREAK GOSUB Arret : BREAK ON 
DEFINT A-7.-.DIM Rps ( 1 9) r Rect (3) , Beet 2 ( 3 
) , Pat (3) , Tget (45) , Tget2 (45) , Tc (10, 4 
),Tm(4), Tm2 (4) , Tma (4) , Nb$ (5) , Rff(7) 
r Rsm(7) :OPEN"R", 1, "Mots", 5tFIELD 
1,5 AS Mo t $ : GET 1, 1 :Nm=CVI (Mot$) : 
FOR 1=0 TO 7: READ Mc , Mc $ : MENU 5,1 
, Me, Me $ :NEXT: FOR 1=0 TO 5:READ Nb 
$ (I) : NEXT 

FOR 1=0 TO 19 : READ Rps(I) : NEXT: FOR 1= 
TO 7 :READ R ff (I) : NEXT : FOR 1=0 T 
O 7 :READ Rum ( I) : NEXT : FOR 1=0 TO 3 
:Pat ( I) =&hAA55 : NEXT : A / =VARPTR (Rff 
(0) ) :A ! :A !=VARPTR (Rsm (0) ) :FOR 1=1 
TO 5: A! I :NEXT : WINDOW 1,, (13,33) 
- (499, 329) , 4 :GOSUB Aff Alpha :GOSUB 
AffGril :GOSVB Init 
IF L0F(1)~Q THEN Erreur 

BattJeu: 

ON DIALOG GOSUB Dial :ON MOUSE GOSUB 
SpZ:OK MENU GOSUB Men : DIALOG ON 
TMOUSE on -.menu on -.MENU 5,0,1: 

Batt: 

K$=INKEY$:IF K$<>"" THEN GOSUB Touche 
GOTO Batt 

BAttAutre: 

ON DIALOG GOSUB Dia 1 Autre : DIALOG ON: 

MENU OFF; MOUSE OFF: MENU 5 r 0, 
BAttA: 
GOTO BATT a 

SpZ: 

DIALOG OFF: MOUSE OFF : Drz-5 : A ! "VARPTR 
(Rps(3)):A! 468, 260, 2R0, 4 : IF Rps(O) 
THEN Drz=4 
A! 48,281, 21, 21: IF Rps(O) THEN Drz^l 
A! 88,281, 61, 21: IF Rps(O) THEN Drz=2 
A! 128,281, 101,21 :IF Rps(O) THEN Drz=3 
ON Drz GOSUB Zl, Z2, Z3, Z4, 25 : DIALOG ON 
: MOUSE ON: RETURN 

21: 

Xl=21 :X2=48 : C=64 : GOSUB SpZ2 : RETURN 

Z2: 

Xl=61 :X2=88 :C=73 : GOSUB SpZ2 : RETURN 
23: 

XI— 1 01 :X2=128 : C=82 : GOSUB SpZ2:IF Nc=91 

THEN Nc=0 
RETURN 



Z4: 

Dp=-1:C1=0:FOR X=0 TO 4 : X2=4 0*X :A ! =VAR 
PTR(Rps(3)) 7 A! 308+X2,260,280+x2, 4 
:IF Rps(0)=Q TEEN 24b 
PUT(Z81+X2, 5+26*{L-l) ) , Tge t , PSET : Tc (L, 
X) =Nc : But=BUTTON (1 ) : IF But=l THEN 
IF Nc<65 THEN BUTTON 1,0: GOTO 2 
4b 

FOR 1=0 TO 4: IF Tc(L,I)<65 THEN Dp=0 
NEXT: IF Dp THEN BUTTON 1,1 

Z4b: 

NEXT : RETURN 

Z5: 

BEEP .-RETURN 

SpZ2 : 

A!=VARPTR(Rps (3) ) :FOR Y=21 TO 261 STE 
P 30:C=C+1 :Al X2, Y+20 i Xl i Y:IF Rps ( 
0) AND CONc THEN INVERTRECT VAR 
PTR (Rect2 (0) ) :GET(Xl, Y) - (X2, Y+20) , 
Tget :Rect2 (0) =Y:Rect2 (1)=X1 :Rect2 (2 
) =Y+21 :Rect2 (3) =X2 : INVERTRECT VAR 
PTR (Rect2 (0) ) :Nc=C 

NEXT : RETURN 

Bo: 

BUTTON 1,0, "Valider", (210, 4+26* (L-l) )- ( 
270,26+26* (L-l) ) -.RETURN 

Dial ; 

IF DIALOG ( 0) <>1 THEN RETURN 

DIALOG OFF:L=L+l : IF L>1 AND L<11 THEN 
MENU 5,1,1 

IF J.<11 THEN GOSUB Bo ELSE BUTTON CL 
OSE 1 -.MENU 5,1,0 

L2=26*(L~2) :FOR 1-0 TO 4 :Tm2 (I) -Tm (I) : T 
ma (I)=Tn (L-l, I) :NEXT : LINE (1 40, 4+1,2 
) - (200, 24+L2) , , B : LINE (21 0, 4+L2) - (2 
70, 24+L2) , , B -.LINE (140 , 6+L2) - (200, 2 
6+L2) , ,B:LINE(210, 6+L2) - (270,26+L2 
) , ,B:Bp=0 :Mp=0 :FOR 1=0 TO 4 : IF Tma 
{I) =Tm2 (I) THEN Bp-Bp+1 : Tma (I) =0 : T 
m2(I)=-l 

NEXT; FOR 1-0 TO 4: FOR J=Q TO 4 : IF Tma 
(I) =Tm2 (J) THEN Mp=Mp+l : Tma (I) =0 : T 
m2 (J) =-1 

NEXT: NEXT iMOVETO 170-KIDTH (Nb$ (Bp) )/ 
2 f 20+L2:PRINT Nb$ (Bp) ; :MOVETO 240 
-WIDTH (Nb$ (Mp) ) /2, 20+L2 : PRINT Nb$ 
(Mp);:IF Bp<>5 THEN Dial2 

IF L<11 THEN BUTTON CLOSE 1 

GOSUB TrouveO:GOTO Dials 

DialZ: 

IF L=ll THEN GOSUB TrouveN:GOTO DlalS 
FOR X=0 TO 4:X2=4Q*X:IF Tc(L,X)=0 THEN 
LINE(281+X*40, 5+ (L-l) *26)- (307+X* 
4 0, 25+ (L-l )*26),30, BF 
NEXT: DIALOG ON: RETURN 
DialS: 
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DIALOG ON : RETURN BAttAutre 
SpCM: 

RANDOMIZE TIMER : GET 1 , INT (RND *Nm) +2 : 
M$=Mot$:FOR 1=0 TO 4 : Tm ( I) =ASC (MI 
D$(M$, 1 + 1, 1) ) :NEXT:RETURN 

Aff Alpha : 

TEXTFONT :TEXT SIZE 2 4 : TEXTMODE 1 : C= 
64:FOR X-0 TO 2 : X2-40 *X :FOR Y=0 T 
Q 8 : Y2=Y*30:LINE (22+X2, 21+Y2) -(50 + 
X2, 43+Y2), ,BF:LINE(20+X2 f 20+Y2) - (4 
8+X2, 42+Y2) , , B : LINE (21 +X2, 21+Y2) - ( 
47+X2, 41+Y2) , 30,BF:C=C+1 

IF C<91 THEN MOVETO (35+X2 ) -WIDTH (CH 
R$ (C) ) J2, 40 + Y2 :PRINT CBR$ (C) ; 

NEXT:NEXT:GET (21,21) -(48, 42) , Tget ; Rect 
2 (0) =21 :Rect2 (1) =21 ;Rect2 (2) =42 :Rec 
t2 (3) =48 : INVERTRECT VARPTR (Rect 2 
(0) ) : RETURN 

AffGril ! 

FOR X=0 TO 4:X2=40*X:FOR Y=0 TO 9:Y2=Y 
*26:LINE (280+X2 r 4 + Y2) - (3Q8+X2, 26+Y 
2), r R:IF Y THEN Rect (0) =5+Y2 : Rect ( 
l)=281+X2:Rect(2)=26+Y2:Rect (3)=308 

+X2 : FILLRECT VARPTR (Rect (0) ) , VAR 

PTR(Pat (0) ) 
NEXT:LINE(28Q+X2, 268) - (308+X2 , 290) , ,B: 
MOVETO 294+X2-WIDTH ("?") /2 r 288 :PR 
INT" : NEXT : LINE (280 , 264) - (468, 2 
64) .-RETURN 

Init : 

FOR 1=0 TO 7:MENU 5, I, (I<2) +1 :NEXT :L= 
1 :GOSUB Bo:Drok=0:Drz=0:Nc=65:FOR 
X=0 TO 4: FOR Y=l TO 10 : Tc (Y, X) =0 :N 
EXT : NEXT : GOSUB SpCM: TEXTS IZE 12 : 
Nmenul=4 ; RETURN 

TrouveO; 

Dtr=-1 :GOT0 Trouve 

TrouveN: 

Dtz=0 

Trouve t 

GOSUB AffSol 

IF L>5 THEN WINDOW 2 lt ( 30 , 50) - (27 Q , 120 
),2 ELSE WINDOW 2,, (30, 240) - (270, 
310), 2 

TEXTFONT : TEXTMODE 1 ; TEXTS IZE 12x1 
F Dtr THEN MOVETO 10, 15 : PRINT "Br 

avo .'" 

MOVETO 10, 31 :PRINT "le mot 6tait"s : IF 

Dtr THEN PRINT" bien 
PRINT M$ BUTTON 1, 1, "Autre par 

tie", (5, 45) - (100, 65) -.BUTTON 2, 1, "Q 

uitter", (1 40, 45) - (235, 65) 
RETURN 

DialAut re : 



IF DIALOG (0)01 THEN RETURN 

IF DIALOG (1) =2 THEN WINDOW CLOSE 2 :W 

INDOW CLOSE 1:SYSTEM 
WINDOW CLOSE 2 : CLS : BUTTON CLOSE 1 :G 

OSUB Aff Alpha: GOSUB AffGril -.GOSUB 
Ini t ;RETURN BattJeu 

Touche : 

Nn=ASC (K$) :IF Nn=32 THEN Numc=2 : Numl=8 
:C=Nn:GOTO Touche2 

Nn=A$C(K$) AND $h5F;IF Nn<65 OR Nn>9Q 
THEN RETURN ELSE C-Nn : Numc-INT ( ( 
Nn-65)/9) :Numl=(Nn-65) MOD 9 

Touche2 ; 

IF C~Nc THEN RETURN 

INVERTRECT VARPTR (Rect2 ( )): GOSUB Ge 
tCar : INVERTRECT VARPTR (Hect2 (0) ) 
:Nc-C:DIA2,OG ON: RETURN 



Get Car: 

Rect2(0) =21 +Numl *30: Rect2 (1 ) =21 +Numc *4 : 
Rect2 (2)=42+Numl *30:Rect2 (3)=48+Num 
c*40: GET (Rect2 (1) , Rect2 (0) ) - <Rect2 
(3)-l,Rect2(2)-l) ,Tget : RETURN 

AffSol : 

INVERTRECT VARPTR (Rect 2 ( )): FOR 1=0 

TO 4 ;Numc=INT( (Tm(I)-65) /9) :Numl=( 
Tm(I)-65) MOD 9:GOSUB GetCar:LINE 

(278+40 *I, 266) - (310+40*1, 292) , , Bf:P 
UT (281+40*1, 269) , Tget ,P$ET :NEXT :R 

ETURN 

Men: 

MENU OFF : MENU : Nmen u=MENU ( 1) i ON Nmenv 
GOSUB MenRrp, MenL, MenL, MenL, MenL, M 
enL,MenSol 

IF Nmenu=7 THEN RETURN BAttAutre ELSE 
MENU ON: RETURN 



MenRrp : 

FOR X=0 TO 4:X2=40*X:Y2=(L-1) *26:Y1=Y2- 
26-.GET (281+X2 , 5+Y1) - (307+X2, 25+Y1) 
, Tget 2 :PUT (281+X2, 5+Y2) , Tget2,PSET 
:Tc(L,X)=Tc(L-l,X) : NEXT : BUTTON 1, 
1 :MENU 5, 1,0 -.RETURN 

MenL: 

MENU 5, Nmenu f :Nmenu=Nmenu-2 : INVERT RE 
CT VARPTR (Rect2 (0) ) :Numc=INT( (Tw( 
Nmenu)-65)/9) :Numl= (Tm(Nmenu) -65) M 
OD 9:Rect (0) *=21+Numl*30 :Rect (1)=21 + 
Numc*40:Rect (2) =42+Numl*30 :Rect (3)- 
48+Numc*40:GET(Rect (l),Rect (0))-(R 
ect (3) -1, Rect (2) -1), Tget 2 
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LINE (278+40*Nmenu, 266) - (310+40*Nmenu, 29 
2) , ,BF:PUT(281+40*Nmenu,269) , Tqot2 
,PSET:X2=40*Nmenu:FOR Y=L-1 TO 9: 
Tc (Y+l,Nmenu) =Tm (menu) : Y2=Y A 26 :PU 
T(281+X2, 5 + Y2) , Tget2, PSET :NEXT :Nm 
enul =Nmenul-l : IF Nmenul=0 TBEN FO 
R 1=2 TO 6:MENU 5, I, :NEXT 

INVERTRECT VARPTR (Rect2 ( )): RETURN 

MenSol : 

GOS VB Tro u veN t RETURN 

Arret ; 
RETURN 

Erreur : 

BEEP: WINDOW 1 , , (1 00 , 120 ) - ( 412 , 160) r 2 :T 
EXTFONT : TEXTMQDE 1 : TEXTSIZE 1 

2 -.MOVETO 10, 15:PRINT"D6sol6, pas 
de flchler de mots accessible..." :BU 
TTON 1,1, "OK", (240,20) -(300, 40) :ON 
DIALOG GOSUB DialEr : DIALOG ON 



AttEr: 
GOTO AttER 

DialEr: 

WINDOW CLOSE 1 : MENU RESET: END 

DATA 0, Facilit&s, 0, Reporter la llgne px 
4c4dente, l,D6voiler la premiere let 
tre, l,Devoiler la seconde lettre,l, 
De'vullei la trolaleme lettre, 1, D6vo 
iler la quatri&me lett re, 1 , Devoiler 

la cinquieme lettre, 1 , Devoiler la 
solution 

DATA AUCUNE, UNE, DEUX, TROIS, QUATRE, CINQ 
DATA 0, 0, 0, &h4E56, 0, &h487A, &hh'h'b'6, &hA97 
2, &H4267, &h47FA, shFFEE, &h2F13, &h48 6 
E, 8, &hA8AD, &H47FA, 6hFFE0, sh369F,&h4 
E5E, &h4E75 

DATA &h42A7, &hAD24, &H2E1F, &h6706, &h2F0 7 

, &hA91 6, th60F2, 6h4E75 
DATA &h4E56, 0, &h3F2E, 8, 4*hA936, &hA93 7, &h 

4ESE, &H4E75 



Programme "CreFich" 

ON BREAK GOSUB Arret : BREAK ON: DEFIN 
T A-Z;DIM Rff (7) , Rsm<7) :FOR 1=0 T 
O 7 : READ Rff { I) : NEXT : FOR 1=0 TO 7 
-.READ Rsm(I) :NEXT 

A ! -VARPTR (Rff (0) ) :A ! :A! -VARPTR (Rsm (0) ) 
:FOR 1=1 TO 2: A! I : NEXT : FOR 1=4 T 
O 6:A! I : NEXT : WINDOW 1, , (180,120) 
- (332, 210) ,4: GOSUB Text ; OPEN"R ", 1 

r "Mots", 5: FIELD 1 , 5 AS Mot$ 
IF LOF(l) THEN GET l,l:Nm=CVI(Mot$)+l 
ELSE Nm-1:LSET Mot$=MKI$ (Nm) :PUT 
1,1 

MOVETO 10,20 :PRINT"Mot nurnero" : GOSUB 
AffN ;EDIT FIELD 1,"", (40, 30) - (110 
, 45) : BUTTON 1 , 1, "OK", (10, SO) - (71, 8 
0) '.BUTTON 2,1, "Quitter", (81, 60) - (1 
42,80) :0N DIALOG GOSUB Dial :DIAL 
OG ON 

BAtt : 
GOTO BAtt 

Dial : 

DIALOG OFF: WO^WINDOW(O) : W1=WIND0W ( 1 ) 
:D0=DIALOG(0) : D1=DIAL0G ( 1 ) : IF Wl= 
2 TEEN WINDOW CLOSE 2 : WINDOW 1: 
EDIT FIELD 1,M$, ( 40, 30) - (110, 45) : 
DIALOG ON: RETURN 

IF D0=1 TBEN SPb ELSE IF D0~6 THEN SP 
d 

DIALOG ON: RETURN 

SPb: 



IF Dl=2 THEN LSET Mot$=MKI$(Nm-l) :PUT 
1, 1 '.CLOSE : WINDOW CLOSE 1:SYSTE 

H 

Spd: 

M$=EDIT$ (1) :IF LEN (M$) <>5 THEN GOSUB 

Erreur -.DIALOG ON : RETURN 
DP~0:FOR i-1 TO 5 ; L$-MID$ (M$ , 1 , 1) : IF L 

$<"A" OR L$> "Z" TBEN DP=-1 
NEXT; IF DP THEN GOSUB Erreur ; DIALOG 

ON: RETURN 
LSET Mot$=M$ :Nm=Nm+l rPUT l r Nm:GOSUB Af 

fNlEDIT FIELD I,"", (40, 30) - (11 0, 4 

5) : DIALOG ON: RETURN 

AffN; 

LINE (DO, 0) - (152,2 4) , 30, BF: MOVETO 90,20 
I PRINT Nm " : " : RETURN 

Erreur : 

WINDOW 2 r , (100, 160)- (412,200) ,2:G0SUB 
Text '.MOVETO 10, 15:PRINT"M0tS de C 
inq lettrcs majuscules S VP " : B UTTON 
1,1, "OK", (240,20)-(300,40) : RETURN 

Text: 

TEXTFONT : TEXTMODE 1 : TEXTSIZE 12 :R 

ETURN 
Arret : 
RETURN 

DATA &U42A7, ShA924 , &h2ElF, 6ch67Q6, &h2F07 
, &hA916, &h60F2, &h4E75, &H4E56, 0, &U3F 
2E, 8, &RA936, &HA937, &H4E5E, &H4E75 
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De nombrcux lecteurs qui utilisenl Apple H el 
Macintosh nous ont dcmandc un programme 
pcnncUanl dc tnuismcMJC des donnccs dans 
lc sens Apple // -* Mac. Rappclons que le 
programme paru dans le Pom's 14 assuiait la 
transmission dans l'autre sens. 



Mode d'emploi 



Cote Apple // : Configurer la carte serie 
comme indique ci-contre. Puis adresser les 
donnees vers la carle. Si vous transmetlez un 
programme Basic, faites PRtfl (si la carte est 
cn slot 1) puis LIST. Pour cvitcr dc fachcux 

retours chariot, faites prcalablemcm POKE 
33,33. Sous AppleWriter, dans le menu 
impression mcttrc la marge droitc a 255, puis 

faire NP 

Cote Mac : Executex le programme Basic 
ci-contre, le cable etant conneele au port 
Modem. Ce programme etant reduil au strict 
ncc ess aire, il vous apparticnt des la Cn dc la 

transmission d'arreter le programme puis dc 
faire en mode direct dans la fenetre de 
commande ; CLOSE. 

II nous a ete possible de transmettre par 
cxcmplc lc programme dc calcul dc 71 du 
Pom's 21 ct de l'ex£cuter avec succes 
moyennant dc menues modilications de 
syntaxc. La transmission d'image HGR est 
egalement envisageable : au lieu H'ecrire dans 
un fichier, il s'agit de stocker dans la 
m emoire-ecran. 



Transferts II — > Mac 



Programme de 
transfert 
Apple// -> Mac 

DEFINT A-Z 
CLS 

TEXTFONT 4 
TBXTSIZE 3 

F$=FILES$ (0, "Fichier de s 
auvegorde ?") 

IF r$=*"" THEN END 

NIDTB »SCnti:",BQ 

OPEN "COMl-.aOOfN, 7,1" FOR 

INPUT AS 1 
OPZN"C",2,F$ 
10 C$=INPUT$ (1, 1J 
IF C$="(" THEN C$="6" 
IF C$-"}" THEN C$="e" 
IF C$="@ n THEN C$="a" 
IF C$-"\" TBSN C$-"p" 
IF C$="l" THEN C£="U" 
PRINT C$f 
PRINT i2,C$; 
GOTO 10 



Configuration de 
la carte Super Serie 
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"Jumper Bloc" 
en position '"MODEM" 



o 
ca 



=3 
CT 



SORT MENU, un ulilitaire de tn dc menus, 
PAINT MOVER : copier et manipuler les images MacPaint 

ACCESSOIRES DF. RI JREAlf 'MOCK' : mini-iraitcment de lexte. grapheur et terminal 
CONVERT DAM : pour passer dc DA Mover a Font D/A Mover 
FEDIT : un editcur dc blocs ct dc fichicrs (en anglais) 
CUBE : un jeu en accessoire 

IDLE : pour preserver voire ecran durant de longs traiiemenis 
MULTISCRAP -. accessoire pcrmeuant de di poser deplusieurs albums a Ea fois 
C CHECK : Pour verifier les niveau* de parentheses en langage 'C 

HEX CALC : Tin dispensable caJculalrice hexarl&imale 
MEGAROIDS : un jeu dadrcssc 
MEM WINDOW : permei de lister la onSnioif e du Mac 

Dlsquette Mac 'A' : 80,00 F TTC Franco, Don de Commande page 74 
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Vous trouverez sur la disquette d'accompagnement Macintosh de ce numfiro, 

outre les programmes publics dans le cahier Mac, le nouveau systeme 

cnrTesponriant a la version $J du Finder, Les 

cornmen takes d'uiilisaliun se tiuuveaont diicUemcnt sui 
la disquette. Le nouveau Finder comprend. de fagon 
optionncllc, des mini-iconcs et certains nouvcaux gadgets 
pour le rangement des icones. Ce qui fait vraiment son 
originality, e'est le IIFS : Hierarchical File System. Voici 
enfin un systeme de gestion de fichiers re*ellement 
hicrarchisc\ 



II s'acttvera des que le 
support magnetique (disque 
ou disquette) aura plus de 
400 Ko de capacity. 
Vous trouverez sur la disqiielte. outre le nouveau fichier System et le nouveau 
Finder, le driver ImageWrilei2» le driver LasciWiiier pour Mac 128K et deux 
nouveaux accessoires de bureau : un s£!ectcur d'imprimante reconnaissant entre 
aulrcs les deux types d'lmagcWriter et, dans lc tableau dc bord, la possibility 
de d6finir un cache-m6moire. Un cache-m6moire fait ce que faisaii le Mac 
Booster d'ACI : mettre, dans une memoirc vivc dont la taillc est fixec par 
l'uiilisaieur. les 61ements les plus souveni utilises, cette frequence dutilisation 
etant appr6ci6c par lc programme dc cache. Ccla pcrmct dc nettement require 
les temps de r^ponse du Mac.L'accessoire "Clavier" autorise desormais I'essai 
des differentes polices presences dans le systeme. Enfin, la disquette Pom's 
contienl aussi une nouvelle version de "Font DA/Movef*. 



ypnr pptitp irnnp 
par icone 
par nom 
par date 
par faille 
par type 



Tableau de bord 




Forx) d* Vecran 



S BonnMtl 



^ ♦ ♦ 

Vitessr du doublp-ciio 



CHqnotement du 
point d 'insertion 



u®u 



01tsswn*nt Souris 
1 



■J 



m O 

Souris TabVtU 




rmrt-pirWur 



r-Wtnorrf 



J2K 



O ■ 

Qui Non 



Repelilion dps touc*« 

ooo®o 



PaiK* svanl r*f>£triinn 

o o@oo 

O Long Court 
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£ £ Que fairc avee 1'ccran du 
W W Macintosh ?" Seduit par 
sa finesse de definition, 
particulierement lorsque 
Ton vient de l'Apple //, voici la 
question que Ton peut se poser. 
Le programme qui suit a ete ecrit 
en se pliant aux contraintes 
suivantes : utiliser pleinement la 
haute resolution, respecter les 
conventions de presentation "Mac 1 
et, si possible, 6tre inutile. .. Dans 
un premier temps, le dessrn dune 
courbe qui pourrait evoluer en 
finesse a ete le but de ce 
programme. 



Trace 



✓Fractal 



Hyperpan?ti6lepip6de | 



Voici quelques mots de theorie 
sur la courbe qu'etudia Von 
Koch. Considerons le segment de 
droite suivant : 



Ce segment est divise en trois 
parties egales. La partie centrale 
disparait et est remplacee par les 
deux autres cotes dun triangle 
equilateral dont elle servait de 
base. Nous obtenons alors le 
fractal d'ordre 1 : 




La figure ainsi obtcnuc comprend 
maintenant quatre segments de 
longueurs egales. Faisons subir le 
meme sort a chacun d'eux, il en 




fig ure : 

<•) triangle <- 
O triangle -> 
O heHagone < 
Ohe«agone -> 

CompleHite : 

O o 
O i 

O 2 

<$> 3 

O 4 

O 5 



Effocer 



resultera evidemmeiil le fractal 
d'ordre 2 : 




Notons au passage que cette 
figure comprend seize segments. 
A chaque nouvelle etape dans la 
constructions de nos fractaux 
(fractals ?), le nombre de 
segments est multipli6 par quatre. 
La longueur de chacun d'entre 
eux est egale au tiers de ceux du 
fractal d'ordre immediatement 
inferieur. 

Pour un fractal d'ordre n dont 
l'elemcnt dc base mesurait une 
unite, nous trouvons : 
4 n c8tes ayant chacun une 
longueur de 1/(3"). La longueur 
developpee est done : 4 n /3 n . Cette 
fonction, de type exponentiel, 
tend vers l'infini lorsque n tend 



vers l'infini : le calcul de la 
longueur developpee peut done 
rapidement provoquer un 
overflow sans pour autant que le 
dessin prenne plus de place sur 
votre ecran. . . 

Un fractal d'ordre 5 ne compren- 
dra pas moins de 1024 (1 K !) 
segments loLalisant environ 4,213 
unites de longueur. 

Lorsque n tend vers l'infini, la 
courbe qui en resulte s'inscrit 
dans un espace k 1,26 dimen- 
sion ! plus precisement : 

log(4)/log(3), 

autrement dit un nombre non 
entier. . . Le caractfere esoterique de 
la chose ne vous echappera pas ; 
le programme lui, ne s'attache 
qui son aspect esihctique. 

II vous propose de tracer ces 
figures en prenant pour base un 
triangle ou un hexagone, avec un 
developpement interne ou externe. 
II vous permet de superposer les 
graphes pour l'obtention de 
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dessins du plus bel effet, flocons 
de neige par exemple. 



Trace 



Fractal 



s/Hyperparallelepipede 



Plus insaisissable (?) que le 
fractal : 1'hyperparallelepipede. 
Le pretexte a nos dessins est 
mainienant la representation en 
deux dimensions (notre ecran) de 
parallelepip6des en comprenant de 
3 a 8. Le resultat, s'il est 
totalement incomprehensible, est 
souvent particuli-fcrcmcnt elegant- 
Si nous prenons le cube suivant ; 




ont suffit h sa construction : 
l'origine O et les trois vecteurs I, 
J, K. Ainsi, la position de chaquc 
sommet pourra s'obtenir par la 
simple combinaison des differents 
vecteurs : SI = 0->J + O >K par 
exemple. 

Vous allez pouvoir dessiner des 
parallelepipedes en indiquant 
successivement l'origine puis les 
trois a huit vecteurs. II seront 
representes a l'ecran en suivant 
les regies qui ont servi pour la 
construction du cube. 

Ce premier curseux : 

vous pcrmct dc positionncr 
l'origine. Elle est alors 
materialisee aiusi : 



Ce nouveau curseux : + 



vous permet de definir les 
differents vecteurs. lis se 
materialiseront ainsi : 



nous voyons que quatre donnees Voici l'origine et le premier 



vecteur : \ 

\ 

Un disposition comprenant une 
origine et 3 vecteurs vous donnera 
un volume bien reel, en-de§& de 
T'espace-temps" ! Par la suite, en 
ajoutant des vecteurs, on depasse 
cette limite et on se surprend a 
passer beaucoup dc temps, dans 
un premier temps, h essayer de 
deviner le fulur dessin puis S creer 
des formes esthetiques. 
Pour le reste de la presentation, 
les menus Mac ne presentent 
aucun secret. 

Le Basic qui suit utilise des 
routines en assembleur extraites 
des precedents numeros de 
Pom's, pour les traitements 
suivants : 

• suppression des menus (cf 
Pom's 17), 

• recuperation des curseurs (cf 
Pom's 18), 

• recuperation des icones (cf 
Pom's 18), 

• recuperation dc la position de 
la souris (cf Pom's 19), 

• fermeture de fenetres (cf 
Pom's 19). 



Traces de fractaux et 
hyperparallelepipedes 

REM Initialisations - tableaux et 
const antes 

BREAK ON: ON BREAK GOSUB BRK : HTDECUR 
SOR : DEFINT A-Z : Unltl 9=1/3 : Unit 29= 
1/2: Unit3i^2/3 : Vect2f=SQR (3) /6:Pld 
iv6i-3. 1415926i/6:DIM Lm(15) ,Pat (3 
),Rect (3) , Sr (19) , Xn (256) , Yn (256) , V 
ectX(8) ,VectY(8) ,Xvect (8),Yvect (8) 
,Nn (8) , Icone (18) , TIcone (65) 

FOR 1=0 TO 3 :Pat (I) = &hAA55 .-NEXT ? Dtr=-1 

REM Data pour implantation des routines 

en langage machine 
REM Routine de fermeture des fenetres - 

cf Pom's n ' 19 
DATA &h42A7, &hA924, &h2ElF, &h6706, &h2FU7 

, 6hA91 6, &h€QF2, &h4E75 
REM Routine de suppression des menus - 



cf Pom 1 s n ' 17 
DATA &h4E56, 0, &h3F2E, 8, &hA936, &hA937, &h 

4E5E,&h4E75 
REM Routine de recuperation des 

curseurs - cf Pom's n' 18 

DATA &h4E56, 0, &h42A7, &h3F2E, 8, &hA9B9, Sh 
2057,&h2E9Q,&hA851, &h4E5Ej &h4E75 

REM Routine de detection de la position 
de la souris - cf Pom's n* 19 

DATA 0, 0, 0, &h4E56, 0, &h48lA, &hFFF6, &hA97 
2, &h4267, &h47FA, &hFFEE, &h2F13, &h48 
6E, 8, &hA8AD, &h47FA, ShFFEO , &H369F, & 
h4E5E, 6h4E75 

REM Routine de rScupSration des icdnes 
- cf Pom'sn '18 

DATA &h4E56, 0, &h42A7, &h3F2E, &hC, &HA9BB, 
&h2057, 6h2250, &h246E, 8, &h24FC, 32, 3 
2, &h 701F, &h24D9, &h51C8, ShFFFC, &h4E 
bE, &h4E/5 

CM$="A09F9DD783DCD08295868595D09682919E9 
39F80989F9E95D0999E947E80959E94919 
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E8495D0809F8582D09CD78584999C99839 
184958582D09485DQBD9193999E849F839 

8":FOR 1=1 TO LEN ( CM$) -1 STEP 2:C 
M2$=CM2$+CHR$ (VAL ( "&h "+MID$ (CM$, 
1,2}) XOR &hFO) :NEXT 

REM Lecture des Data, implantation des 
routines en m6moife, fermeture des 
fenStres, suppression des menus 
Inutiles et configuration des 
menu 3 conserves 
FOR 1=0 TO 15: READ Lm (I) : NEXT : FOR 1=0 

TO 10 : READ Cu r (I) : NEXT : FOR 1=0 
TO 19;READ Sr(I) ;NEXT : FOR 1=0 TO 

18 : READ Icone (I) : NEXT : A ! =VARPTR 
(Lm(0)> :A! 

MENU 3,0,1, CHR$ (20) ;MENV 3, 1, 1,CM2$ :M 
ENU 4,0, 1, "Arr§t":MENU 4,1,1, "Qui 
tter":MENU 5, 0, 0, "Track" :MENU 5, 1 
, 2, "Fractal" : MENU 5,2, 1, "Hyperpara 
llelepipede":A !=VARPTR (Lm (8)) :FOR 
1^0 TO 3: A! I: NEXT: ERASE Lm:GOS 
UB Ffr:ON MENU GOSUB Mfr 

REM Boucle d'attente pour 1 'option 
"Fractal" 

Bfr2: 

MENU ON .-DIALOG ON : ON DIALOG GOSUB D 

fr 

Bfr: 

IF MOUSE (0) THEN GOSUB Sir 
GOTO Bfr 

REM On ignore "Commandc-Majusculc— . " 

BRK: 

RETURN 

REM Boucle d'attente pour 1 'option 
"Hypexparalle'le'pipede" et 
modification de la forme du 
curseur si n£cessaire 

BHy2 : 

MENU ON: DIALOG ON 

BHy3: 

ON DIALOG GOSUB DHy 

BHy: 

IF MOUSE (0) THEN GOSUB SHy 
IF BUTTON (1) —0 THEN BHy 
A!=VARPTR(Sr(3) ) :A! 500, 310, 440, 290: IF 
Sr(0) THEN Dbo 

Hbo: 

IF Dcur THEN A ! =VARPTR (Cur (0) ) :A ! 2:Dc 

ur=0 
GOTO BHy 

DBo: 

IF NOT Dcur THEN INITCURSOR : Dcur=- 1 
GOTO BHy 

REM Boucle d'attente d'une action sur 
le bouton "Autre" 




Att: 

ON DIALOG GOSUB Att 2 : DIALOG ON 

BAtt: 
GOTO BAtt 
Att2: 

IF DIALOG(0)=1 THEN CLS : BUTTON 1,0," 
Vallder", (440,290)- (500,310) :A!=VA 
RPTR(Cur(0) ) :A! 3 : Drch-0 ; RETURN B 
Hy3 ELSE RETURN 

REM Traitement d'une action dans la 
barre des menus 

Mfr: 

MENU : Me =MENU (0) :Mel=MENU(l) : IF me0=3 
THEN RETURN ELSE IF Me 0-4 AND 
Mel=l THEN SYSTEM ELSE IF Mel =1 
AND Dtr OR Mel=2 AND NOT Dtr THE 
N RETURN 

MENU 5,0,0:MENU OFF : DIALOG OFF:A!=VA 

RPTR(Cur(0)) :A! 4 
IF Mel~l THEN Dtr — ItMENU 5, 1,2. -MENU 

5,2, 1: WINDOW CLOSE 1: GOSUB Ffr: 

RETURN Bfr 2 
Dtr=0 : MENU 5, 1, 1 :MENU 5,2, 2 : WINDOW CL 

OSE 1: WINDOW CLOSE 2: GOSUB FHy: 

RETURN BHy 2 

REM Traitement d'une action sur le 

bouton cie la svuris pour 1' option 
"Fractal " 

Str: 

IF WINDOW(O) -2 THEN RETURN ELSE Rect 

Y=MOUSE (2) :RectX=MOUSE(l) 
WHILE MOUSE (0) =-1 :Mol=MOUSE (1) :Mo2=MO 
USE(2) ;RecL (0)=RecLY:Rect (2)=Mo2:R 
ect (l)=RectX:Rect (3)=Mol 
IF Mo2<RectY THEN SWAP Rect (0) , Rect (2) 
IF MoKRectX THEN SWAF Rect (1) , Red (3) 
A!=VARPTR(Sr (3) ) :A! 382, 315, 1, 1 : IF Sr ( 
) THEN FRAMERECT VARP TR (Rec t ( 
) ) : FRAMERECT VARPTR (Rect (0) ) 
WEND: IF Sr(0)=0 THEN RETURN 

X= (Rect (3) -Rect (l))/2 : Y= (Rect (2) -Rect (0) 
) /2:Cx^X+Rect (1) :Cy*Y+Rect (0) :IF X 

<5 OR Y<5 THEN RETURN 
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A!=VARPTR(Cur(0) ) :AI 4 : MENU 5,0,0:DIA 
LOG OFF: ON Fig GOSUB Dtr,Htr,Dhe 
,Hhe 

INITCORSOR: WINDOW 2 : MENU 5 , 0, 1 : DIAL 
OG ON:IF BUTTON (11) =0 THEN BUTT 
ON 11,1 

RETURN 

REM Traitement d'une action sur le 

bouton de la souris pour 1' opt ion 
"Hyperparallel6pipede " 

SHy: 

WHILE MOUSE (0) : WEND : RectY=MOUSE (2) :R 
e c t X=MOUSE (1) : IF Drch THEN 511 y 2 
ELSE Drch=-1 :Ind=-l r CIRCLE (RectX, 
Hect i) , 5 :LINE (RectX-1 0, Rect Y) - (Rec 
tXllO, Rect Y) : LINE (RectX, Rect Y-l 0) - 
(RectX f Rect Y-hl 0) : Xorg=RectX: Yo rg=*R 
ectY :A!=VARPTR(Cur (0)) :A! 2:Dcur= 
; RETURN 

SHy 2 : 

IF Ind<>7 THEN SHy 3 

DIALOG OFF : BUTTON 1,0 : DIALOG OFF : BE 
EP:WINDOW 2, , (140 , 150) - (312, 203) , 
4 ;AI=VARPTR ( Icone (0) ) :A! 1, VARPT 
R (TIcone (0) ) :PUT (1 0,10) , TIcone : TE 
XTFONT : TEXTMODE 1 : TEXTFACE : 
TEXTSIZE 12;M0VET0 60, 24 zFRINT" 
Pas plu3 de huit" 

MOVETO 60, 40 :PRINT"vecteurs, S.V.P..."; : 
BUTTON 1,1, "OK", (188,14)-(22Q,38) 
:0N DIALOG GOSUB Bok : DIALOG ON 

BRHy: 

GOTO BBHy 
BBIJy2 : 

RETURN RHy2 



REM traitement d'unc action sur le 

bouton "OK" et mise a\ jour de la 
fengtre (option 
"Hypcrparallclepipede ") 

Bok: 

IF DIALOG (0) <>1 OR DIALOG (1 ) <>1 THEN 
RETURN 

DIALOG OFF: WINDOW CLOSE 2 : WINDOW 1: 
BUTTON 1, 1 : DIALOG ON : PENMODE 8 

CIRCLE (Xorg, Yorg) , 5 tLINE (Xorg-1 0, Ynrg) 

- (Xorg-tlO, Yorg) : line (Xorg, Yorg-1 0) 

- (Xorg,Yorg-hlO) :FOR 2^0 TO 7:Vix = 
VectX(Z) +Xorg: Viy=VectY(Z) ±Yorg 

LlNE(Vix-2, Viy-2) - (Vix+2, Viy+2) r , BF:LI 
NE (Vix-5, Viy) - (Vix+5, Viy) : LINE (Vi 
X, Viy- 5) -(Vix, Viy+5) : MOVETO Xorg, 
Yorcj : LINE TO Vect X (Z) +Xorg t VectYfZ 
) + Yorg : NEXT : PENMODE 1 

RETURN BBHy 2 



REM suite traitement d'une action sur 
le bouton de la souris pour 
1 1 option "Hyporparalldldpipede " 

SHy 3: 

Ind=Ind+l : Vec LX(Ind) =RecLX-Xorg : Vect Y (In 
d) =RectY-Yorg:Nn (Ind) =0 : LINE (RectX 
-2,RectY-2) - (RectX+2,RectY+2) ,,BF: 
LINE (Rec tX-5, Rect Y) - (RectX+5 , Rect Y 
) : LINE (RectX, RectY-5) - (RectX, RectY 
+5) 

MOVETO Xorg, Yorg: LINETO RectX, RectY : I 

F Ind=l THEN BUTTON 1,1 
RETURN 

REM Traitement d f un Svenement de type 
"Dialog" pour 1'option "fractal" 

Dfr: 

DIALOG OFF t D i a =DIALOG (0 ) * IF DiaOl T 
BEN Dfr2 

IF DIALOG (1) =11 THEN BUTTON 11,0: WIN 
DOW 1 .* CLS ; WINDOW 9 j GOTO DfrF EL 
SE IF DIALOG (1) >6 TBEN BUTTON F 
ig+6, 1 '.BUTTON DIALOG ( 1 ), 2 : Fig~DI 
AL0G(l)-6 ELSE BUTTON Com+l,l:BU 
TTON DIALOG (1) , 2 : Com— DIALOG ( 1 ) -1 
.-GOTO DfrF 

D£r2: 

IF Dia = 3 THEN Di a=DIALOG (3) : WINDOW Di 

a ELSE GOTO DfrF 
IF Dia=l THEN A!-VARPTR(Cur(0) ) :A! 2: 

GOTO DfrF ELSE INITCURSOR 

DfrF: 

DIALOG ON: RETURN 

REM Traitement d'un evene/nent de type 
"Dialog" pour 1 'option 
"Hyperparall616pipede " 

DHy: 

DIALOG OFF : MENU 5 , , : A ! =VARPTR (Cur ( 
0) ) :A! 4 '.BUTTON CLOSE 1 :CLS:Ind= 
Ind-hl:FOR 1=0 TO 2*Ind-l :N=I :FOR 
J=Ind-l TO STEP -l:Nn(J)=INT(N/ 
2* J) :N=N-Nn (J) *2*J:NEXT:Xn (I) =Xorg 
:Yn(I)=Yorg:FOR J=0 TO Ind-1:IF N 
n (J) <>0 THEN Xn (I) =Xn (I) +VectX (J) : 
Yn (I) =Yn (I) + Vect Y (J) 

NEXT: FOR J=0 TO Ind- 1: IF Nn(J)=0 THEN 
Xvect (J) **Xn (I) +VcctX (J) : Yvect (J) = 

Yn (I) +VectY(J) :LINE(Xn (I) ,Yn (!))-( 

Xvect (J) , Yvect (J) ) 
NEXT :NEXT: BUTTON 1, 1, "Autre", (440,290 

) - (500, 31 ) :MENU 5,0, 1 '.DIALOG ON 

: INITCURSOR -.RETURN Att 

REM Trace d'un fractal a l'int^rieur 
d r un triangle 

Dtr: 

FOR J=-5 TO 3 STEP 4 : XI (Com) =Cx+X*COS ( 
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J*PIdivGt) :Y1 (Com) =Cy-Y*SIN (J*PIdl 
v£#; :X2 (Com) =Cx+X*COS ( (J+4) *PIdiv6 
t) : Y2 (Com)=Cy-Y*SIN( (J+4) *PId±v6#) 
:GOSVB SpR : Com-Com- 1 : NEXT .-RETURN 



REM 

Htr: 
FOR 



Trac6 d'un fractal 
d'un triangle 



a 1 'extGrieur 



J=ll TO 3 STEP -4:Xl(Com)=Cx+X*COS 
(J*PIdiv6#) :Y1 (Com) =Cy-Y*SIN (J*PId 
lv6i) :X2 (Com)=Cx+X*COS ( (J-4) *P Tdi v 
6#) :Y2 (Com)=Cy-Y*SIN( (J-4) *PIdiv6f 
) ? GOSUB SpR : Corn=Com- 1 : NEXT : RETUR 
N 



REM 

Dho: 
FOR 



Trac.4 d'un fractal 
d'un hexagone 



£ 1 'interieur 



J=-l TO 9 STEP 2-.X1 (Com) =Cx+X*CO$ ( 
J*PIdiv6f) :Y1 (Com) =Cy-Y*SIN (J*PIdi 
v6i) :X2 (Com) =Cx-i-X*COS ( (J+2) *PIdiv6 
#; : Y2 (Com) =Cy-Y*SIN ( (J4-2) *PIdiv6#) 
:GOSUB SpR:Com=Corn~l : NEXT : RETURN 



REM 

Hhe: 
FOR 



Trace* d'un fractal 
d'un hexagone 



a 1 'ext6rleur 



J=ll TO 1 STEP -2;X1 (Com)-Cx+X*COS 
(J*PIdiv6#) :Y1 (Com) =Cy-Y*STN (J*PId 
iv6i) :X2 (Com) =cx+x*COS ( (J-2) *PIdiv 
€i) :Y2 (Com) ~Cy-Y*$IN( (J-2) *PId±v6# 
) : GOSUB SpR : Com=Com-l : NEXT : RJSTUR 
N 



REM Sous -programme d'affichage fractal 
SpR: 

IF Com=0 THEN LINE (XI (Com) , Yl (Com) ) - (X 
2 (Com) , Y2 (Com) ) :Com=Com+l : RETURN 

DX (Com) -X2 (Com) -XI (Com) :DY(Con\) =Y2 (Com) - 
Yl (Com) :X1 (Com-1) =X1 (Com) :Y1 (Com-1 
)=Y1 (Com) :X2 (Com-1) =XI (Com) +Unitlt 
*DX (Com) ; Y2 (Com-1) =Y1 (Com) +Unitl4* 
DY(Com) :Com=Com-l ; GOSUB SpR 

XI (Com-1) =X2 (Com-1 ) : Yl (Com-1 )=Y2 (Com-1) : 
X2 (Com-1) =X1 (Com) +Unit2#*DX (Com) +V 
ect2t*DY(Com) : Y2 (Com-1) =Y1 (Com) +Un 
lt2§*DY (Com) -Vect2t*DX(Com) :Com=Co 
m-1 : GOSUB SpR 

XI (Com-1) =X2 (Com-1 ) : Yl (Com-1) =Y2 (Com-1) : 
X2(Com-l)=Xl (Com) +Unit3i*DX(Com) :Y 
2(Com-l)-Yl (Com) +Unit3§*DY(Com) :Co 
m=Com-l : GOSUB SpR 





XI (Com-1 )=X2 (Com-1) :Y1 (Com-l)-Y2 (Com-1) ; 

K2 (Com-1) =X2 (Com) : Y2 (Com-1) =Y2 (Com 

) : Com— Com-1 : GOSUB SpR 
Com=Com+l .-RETURN 

REM Affichage den fenetres et 

initialisations necessaire3 pour 
1' option "Fractal" 

Ffr: 

A!=VARPTR (Cur (0) ) sAl 4 : SBOWCURSOR : Fig 
=l:Com=3: WINDOW 1, , (3, 23) - (386, 33 
9) , 3 ;PENPAT VARPTR (Pat (0) ) :PENM 
ODE 10 

WINDOW 2,, (333,30)- (501,300) , 2 : TEXTFO 
NT : TEXTFACE 4 : MOVETO 2, 120: PR 
INT"Complex±te :":FOR 1=0 TO 5:BU 
TTON 1+1,ABS(I=3)+1,STR$(I) , (2,1 
32 i 1*1 6) -(50,14 7+1*1 6) , 3 :NEXT 

MOVETO 2 , 20 : PRINT "Figure :": BUTTON 7, 
2, "triangle <-", (2,32)- (100, 41} ,3: 
BUTTON 0,1, "triangle ->", (2, 48) - ( 
10Q,63),3:BUTTON $ e 1 , "hexagone <- 
", (2,64)- (100, 79) ,3:BUTT0N 10,1," 
hexagone ->", (2, 80) - (100, 95) , 3 .BUT 
TON 11,0, "F.ffacer", (5, 245) - (98, 265 
) 

MENU 5,0,1: INXTCURSOR : RETURN 

REM Affichage de la fen£tre et 

initialisations nScessaires pour 
1 'option "Hyperparall£16pipede" 

FHy: 

A!=VARPTR(Cur(Q) ) :A! 4 : SBOWCURSOR : WX 
NDOW 1,, (3, 23) - ( 509 f 339) f 3 :BUTTON 
1, 0, "Valider", (440, 290) - (500, 310) 
:MENU 5, 0,1: A! -VARPTR (Cur (0) ) :A ! 
3:Drch=*0:PENPAT VARPTR (Pat (0) ) :P 
ENMODE 10 : RET URN 
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Une rubrique ouverte aux lecteurs : 

MacAstuces 



Avcc cc nurn6ro d6butc cette s£ric 
rdguliere. Nous serons heureux de vous 
y faire partager non seulcment nos 
decouvcrtes, mais aussi cclles qui nous 
auront 6id proposes par lcs lecteurs dc 
Pom's. 

Reduire le systeme ? 

Le fichier System comporte un certain 
nombre d'elemcnts qui ne sont pas tous 
indispensables pour un bon 
fonctionnement du Macintosh. C'est 
dans ce dossier que se trouvent entre 
autrcs les polices dc caraclcrcs cl lcs 

accessoires de bureau. Avec le systeme 

correspond ant a la version 4.1 du 
Finder, que nous modifions ici, le fichier 
System occupe en g6n6ral environ 130 
K. Nous allons voir comment require cc 
systeme. 

Remarques : attention a ne pas 
modifier 1c fichier systeme d'ua 
programme du commerce sans en avoir 
fait une copic de security. En effet, 
certains autcurs dc programmes ont 
modifSe" le systeme et les techniques de 
reduction presentees ci-dessous 
pourraient alors avoir des consequences 
destrucnices. II est parfaitement possible 
que certaines des reductions indaquees 
ci-dessous empechent tel ou tel logiciel 
de tourner. Faites done des essais avant 
de derxuirc un systeme original. 
La premiere 6tape pour gagner de la 
place, avant dc reduire un systeme, 
consiste a remplacer le Finder par un 
MiniFinder, ce qui permet d'economiser 
d*un seul coup un cinquantainc dc Ko. 11 
est mime possible de fixer ie demarrage 
sur un programme et deli miner Finder et 
MiniFinder : mais, dans ce cas, la sortie 
du programme entraine une bombe. 



Suppression des polices et 
accessoires 

A 1'aide du Font/DA Mover, vous 
pouvcz facilement elimincr toutcs les 
polices non indispensables. Ensuite, 
elimincz tous les accessoires sauf un ; 
gardcz par cxemple TAIbum. S'il ne 
reste pas au moins un accessoire, le 
Finder "perd les p&lales". 
Avec la suppression dc toutcs les polices 
non indispensables et de tous les 
accessoires sauf l'Album, nous passons 
dc 130000 a 53825 octets. A panir de 
maintenant, nous allons utiliser des 
techniques plus rjangereuses : faites done 
unc copie dc la disquette avant de 
continuer. 



Remplacement de l'Album 
par un accessoire vide 

Si nous voulons un systeme minimum, 
par cxcmplc sur unc disquette nc 
comportant que des utilitaires, nous 
pouvons remplacer l'Album par un 
accessoire "vide", qui nc fait ricn. Nous 
utiliserons pour cela le programme 
Resource Editor. 

Ouvrons le fichier System, ce qui nous 
fair voir 1'ensemble des "ressources" 
consitutant le System, toutes identificcs 
par un nom de trots ou quaere caractercs. 
Ouvrons le DRVR, qui concient 
1'ensemble des accessoires, puis 
ouvrons l'Album. Nous voyons 
apparaitre le code objet de cet accessoire, 
que nous remplac,ons par un simple RTS 
(codc$4E75). 



Suppression de 1'impriTnante 

Si Ton n'a pas l'intcntion d'utiliscr 
rimprimantc, on peut de*truire Ie driver 
"Print" en le selectionnant et en appuyant 
sur Effaccr (Clear). Puis fcrmons DRVR 
et detruisons de la meme facon PREC, le 
Printer RECord, et le Fichier PAPA. 

Reduction a une seule police 

Ouvrons FONT et ne gardons plus que 
la police Chicago- 12. Coles, cela rendra 
a 1'ccran lcs noms des disquctEcs et lcs 
listes sans icones moins agr6ables a lire, 
mais cela gagnera encore de la place. 

CURS 

Nous pouvons 6Iiminier les deux 
curseurs en forme de croiA, ne gardant 
que la munlrc ct lc curscur d'insertion. 
Bien entendu, cela sera nefastc aux 

programmes qui, comme Multiplan, 
utilisent ces curseurs. 

FKEY 

Si nous n'avons pas besoin des cles dc 
fonction pennettant la sauvegarde ou la 
copie d'ecran, avec la combinaison 
Commande, Majuscules et Blocage 
Majuscules, nous pouvons ouvrir 
FKEY. Comme nous pouvons le 
constater, seule les cles 3 et 4 sont 
programmdes : fcrmons done FKEY 
puis efTagons-le enuerement. 

INIT 

Si Ton n'a pas le clavier numenque, on 
peut e'liminer le N*l, qui gere ce clavier. 
Si l'utilisation dc la disquette sur laquellc 
on installe le systeme reduit ne requiert 
pas dc clavier, on peut aussi elimincr le 
N'O (nc lc faisons pas ici). Lc N 8 13 peut 
aussi core dtftruit. 



PACK 

Si Ton ne se sert pas de la calculatrice, 
on peut 61iminer les packs 4 et 5, le 
premier servant aux calculs en virgule 
flottante et le second aux fonctions 
transcendental es. Attention la aussi : de 
nombrcu\ programmes uulisent ces deux 
ressources. 

PAT# 

On peut filiminer les formes contenues 
dans PAT# si Ton n'a pas garde le 
tableau dc bord et si Ton nc comptc pas 
utiliser MacPaint 

STR et STR# 

Les fichier des "strings" peuvent etre 
rotalement eMimines; ils comportent entre 
autrcs lcs noms de fichiers des icones de 
rimprimantc (8192) etdu calepin (15871 
et 15872). 

WDEF 

Nous pouvons detruire le N 8 1, qui sert a 
definir des fcnelrcs a burd arcondi, telle 
que celle de la calculatrice. 

Avcc toutcs ces modifications, on aboutit 
a un systeme ne faisant plus que 32143 
octets, done environ 40% plus petit. 



Plus dangereux encore ! 

Enfin, on peut detruire les ressources qui 
pcrmcttcnt dc rcconstitucr lc bureau avcc 
commande et option. Cela permet 
d'eliminer BNDL, FREF et MACS. .Si Ie 
bureau doit etre reconstruit, le processus 

sera tres long et les icOnes systeme 
n'apparaitront pas. 

Dans la foulee, nous pouvons aussi 
de*truire dans DITL les messages 6047, 
qui interviennent lors de problemes de 
lecture des disques. 

Nous sommes a present descendus a 
29019 octets. Nous joignons sur la 
disquette d'accompagncmcnt lc fichier 
MiniSYS correpondant. D suffic de le 
copier sur une disquette et de le 
rebaptiser "System" pour qu'il 
fonctionne de fagon lout a fait (?) 
normale. 

En fait, on peut aller encore plus loin, et 
descendre aux environs de 20Ko ! 
Mais, avec le MiniFinder a la place du 
Finder, on sc trouvc deja a un total 
raisonnable (moins de 35Ko) par rapport 
aux quelques 175Kohabituels. 

a 
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Mini-Editeur Basic 

Guillaume Pot 



C'est en utilisant I'as- 
sembleur Dig Mac que 
j'ai pense & realiser ce 
programme. II existe, 
en effet, dans cet assembleur de 
nombreuses fonctions d'edition 
dont on ne dispose pas lorsqu'on 
programme en Basic ; en parti- 
culier, les fonctions FIND (trou- 
ver une chaine) et CHANGE 
(changer une chaine). Ce pro- 
gramme a pour but d'assurer ces 
deux fonctions par le biais de 
l'ampcrsand. 

Definition 
preliminaire 

Pour bien comprendre les possi- 
bility, mais aussi les limiles, de 
cet editeur il est necessaire de 
definir, de fa?on trfcs precise, ce 
qu'on appelle Chaine'. 
Desormais, une chaine sera une 
sequence dc caractdrcs contenue 
dans une ligne de programme et 
ne comportant pas d'espace, de 
virgule, de guillemets... Une 
chatne ne peut representer une 
instruction, un numero de ligne... 
En fait, une chaine sera une suite 
de caracteres non codee par 
rinterpreteur Basic (pas de 
token). On pourra done chercher, 
trouver et remplacer un nom de 
variable, un mot de cuminentaire, 
mais aussi un nombre referen$ant 
un numero de ligne (aprfcs 
THEN, GOTO ou GOSUB). 

Utilisation du 
mini-editeur 

Le lancement du programme 
entraine l'edition d'une page aide 
memoire ; celle-ci contient tous 
les renseignements necessaires. 
Cette page est accessible S tout 
moment par la commande & H 
(Help). II suffit alors de charger 
le programme Basic sur lequel on 
effectuera des modifications. 



Les deux fonctions de l'editeur 
sont : 

• l'edition de toutes les occu- 
rences d'une chaine dans le 
programme ; 

• la substitution d'une chaine a 
une autre. 

Comment trouver 
une chaine ? 

La commande : & "chaine assure 
l'edition de toutes les lignes du 
programme oil la chaine conside- 
ree apparait ; si elle figure plu- 
sieurs fois dans une meme ligne, 
la ligne sera editee autant de fois 
(mais imprimee une seule fois). 
La barre d'espacement permct 
une edition pas ^ pas. Si la chaine 
est une reference & une ligne, 
toutes les lignes contenant cette 
reference seront editees,la ligne 
elle-meme sera cditce si elle la 
contient. 



Comment changer 
une chaine ? 

La commande & "chaine 1 "chai- 
ne! permet de remplacer, a 
volont6, la chainel par la chai- 
ne2. L'editeur affiche la ligne du 
programme qui contient la pre- 
miere occurence, puis attend une 
touche. Plusieurs reponses sont 
possibles ; 

• O eomme Oui change la chai- 
ne, edite la nouvelle ligne, puis 
celle contenant l'occurence 
suivantc ; 

• KHTURN entraine le change- 
ment automatique de l'ancienne 
chaine par la nouvelle dans tout 
le programme. L'edition des 
nouvelles lignes est instan- 
tande ; 

• toute autre touche, & Texcep- 
tion de CTRL-C (break), con- 
serve la chaine et entraine 
l'edition de la ligne contenant 
l'occurence suivante. 



Quelques conseils 

Comme avec tout autre editeur, il 
faut faire preuve d'une grande 
prudence dans 1'utilisation de la 
fonction & "chaine l"chaine2. II 
est indispensable dc gardcr une 
copie du programme original 
avant de proceder a un change- 
ment generalise. Ne vous Mtez 
pas de presser la touche RE- 
TURN lors d'une substitution de 
chaine ; il pourrait arriver que la 
chaine a remplacer soit une sous- 
chaine d'une autre. Par exemple : 
xx dans xx% ou encore 110 dans 
1 1 00. Pour changer le nom d'une 
variable (xx%, xx$, xx), il faut, 
bien sur, inclure la specificite 
dans les chaines 1 et 2. Par 
exemple, pour modifier le nom 
d'une variable dimensionnee, il 
est preferable de faire & 
"xx$I("yy$( plutot que & "xx"yy. 

Analyse 

du programme 

La seule difficulte technique du 
programme reside dans 1'utilisa- 
tion d'une partie de la boucle 
principale utilisee par l'interpre- 
teur Basic (CMDLOOP), Cette 
partie ($D46C - $D52B) a ete 
reprise pour eviter la sortie 
forcee, mais inopportune, dans 
Tintcrpreteur. Le programme 
procfide de la facon suivante : 

1) il stocke la nouvelle ligne, 
dejii codee, dans le buffer 
d'entree ($200) et sa longueur 
en $0F ; 

2) il a recours & la partie utilisee 
par rinterpreteur pour inserer 
la nouvelle ligne dans le 
programme Basic ; 

3) puis, retour au programme 
pour l'edition de la nouvelle 
ligne. 
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Le Pacha 

Listez vos programmes Basic en avant et en arrierc. 
Modifiez, inscrez, effacez des caracteres en plein ecran sans relire les lignes. 
Recherchez toute chaine de caracteres. 
Choisissez vous-m£me les codes de conlrole d'EPE. 
Modifiez EPE : lc fichicr source est sur la disquette. 

150,00 F TTC franco (bon de commande page 74). 
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580 








437 








509 




BMI 


MARGE1 


581 STRAD 


DA 


AIDE 




438 


DECODE 


BPL 


CHRPRT 


510 




JSR 


SETNRM 


582 


DA 


TITRE1 




439 




STY 


LINPT 


5U 


MARGE1 


LDX 


07 


583 


DA 


TITRE2 




440 




AND 


0$7F 


512 




JSR 


PRBL2 


584 


OA 


TTTRF3 




441 




TAX 




513 




PLA 




585 


DA 


STRNG2 




442 




LDA 


§>CMDLST 


514 




BMI 


RET1 


586 


DA 


FIN 




443 




STA 


TXTPTR *1 


515 


SETTNV 


IDA 


0S3F 


587 


DA 


SETUP 




444 




LDA 


/<CMDLST 


516 




BNE 


SETFLG 


588 








445 




STA 


TXTPTR 


517 


SETNRM 


LDA 


0$FF 


589 AIDE 


HEX 


8D 




446 
447 
448 
449 


NXTCMD 
NXTCRC 


DEX 
BMI 
JSR 
TAY 


CMDOK 
CHRGET 


518 
519 
520 
S21 


SETFLG 
RET1 

TITLE 


STA 
RTS 

JSR 


INVFLG 
HOME 


Note ; afin de facititer la lecture des 
instructions ASC, les espaces ont eti 
r&nplaces par des 'puces' ( •). 
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Pom"s n° 22 



c tin 


Ail- 




Di la 1 












67 7 






jyi 


urv 
nun 


fin 


67 ? 




HFX 


5 m 






613 




ASC 






II* CHANGFR • J /Nf* ■ 
























on 

tJU 






. IB <l 






• " • ■ Unri j * UN 
































595 


HEX 


SO 


6J6 




HEX 


j ? ' 




"*<•• ■ I? £ I? a tfZHT T 


617 










IAUMF ■ • • f*(J '/*••• 








597 


HEX 




61 ff 




wry 






■">#***«>****•>#* 


6i9 




AiC 














599 
•v *» ^ 


HFX 


QUUUOlf 


WO 




HEX 




n cr - 


*- - - • 'iiCj • LLcj 


627 












622 


FIN 


ASC 








6?1 




HFX 




nti/Z 


BtfW 














625 


SETUP 


HEX 






a T TfUP a a a ■ a a a C 


□ O 




ASC 








6P7 

Oa. ' 




HEX 




ucy 


on 
OLs 


6?tf 






6rt j 

□ UN 


n.il- 


1. r ■ — "iJGrtf" JUKE. 


6? 9 




ASC 








630 










■ • = •*! TDP" 

— niL/C 


631 


SLOT 


HEX 


605 


HEX 


8D8DA2 


637 


F77?ST 


HEX 


fin a 

DUO 






633 


LAST 


HEX 


OU / 


Ait. 


m m 








60S 


ASC 




635 


SASL 


DFB 






R'UNE'CHAINE" 








609 


HEX 


an a? 


63 


BASH 


DFB 



-.../..." >1000,>10000 

-. = . CHANGER 'UN 637 TITRE3 ASC "NOUVELLE • CHA 

E •CHAINE" INE : • ~ 

8DBQ 63$ HEX 00 

m VALEURS<PAR*D 639 TITRE2 ASC "ANCIENNE • " 

EfAOT 50, F 640 VITREI ASC "CHA INE: ' " 

0,165535" 641 STRNG1 HEX 00 

9D8C3D 643 

-«<• 'LES-AUTR 643 STRNG2 = STRSGl*lb 

ES'CLES » 644 

>- 645 

8D8D 646 KEY = SCOO0 

"ONE* '" = 'CHAN 647 STR0RE = SC0I0 

GE'UNE ESP A 648 

CE"= •PAUSE" 649 CMDLST = SDOCF 

8D 650 BLTU = SD393 

"iRETURN *~ m CHAN 651 FWDLJjV = SD61A 

GE'TOUT""CTR 652 CLEAR = SD665 

L'C'^'STOP-'" 653 

00 654 t'RMNUM = SDD67 

655 SYNTAX = SDEC9 

"ZND~0F-PA55" 656 BASIC 2 - SE003 

8D00 €57 ILLEG = $E199 

658 TOOLNC m SESB2 

89 659 GET ADR = $575.? 

"SON" 660 LINPRT - SED24 

00 663 

662 PRBL2 = 5F94A 

'SFL"H' 663 INIT = SFB2F 

664 UP - SFC1A 

00UU 665 rtLWfc = SFC58 

0000 666 RDKEY = SFD0C 

FFFF 667 CROUT = SFDBE 

668 COUT = SFDED 

l r 10. 100, 1 000. 669 SETVID = ?F£P3 

10000 670 OUTPORT - SEE 95 
>1,>10,>100, 




Transform*?? voire 
Apple //c en Minitcl 
graphique et couleur 
avec sauvegarde des 
informations sur im- 
primante ou sur dis- 
quettes. 



• Existe aussi en version texte (sans gra- 
phique) 

(nOt i's>ii»* uii iiiuiK-iii VZ3uu uii dUnpidifui LINK //<. eriliv W Miiiilel vi i'Apfde //C 



COPY II MAC™ 4.5 

• DUPLIQUE LES LOGICIELS PROTEGES ' 

• CONTIENT DES UTILITAIKES PUISSANTS 

- Formatage et verification de disque 

- Editeur de secteurs et fichiers 

- Reparation dedisques endommages 

- Installation de programmes prot£g6s sur disque 
dur 

• Configuration : Macintosh 128 K ou 512 K 
Versions aussi disponibles pour IBM, Apple // et 
Commodore 64 ! 

L os produits vou& sonl vtuidus pour vous permeitie de reahser des copies de sau vegarde 
uniqueiiieiiL. 



XL/Serve et Mac Serve 

Les premiers logiciels de reseaux pour 
Appletalk permettant le partage d'impri- 
mantes et de disques durs. 



computic 



143. Grande Rue 
59100 ROUBAIX 
Tel. 20.73.93.73 



PRODUITS 




IM1TEL// - V 1.1 (version sans graphique) 

(AppW/c) 

IMITEL/ / - V 2.0 (version avec graphique) 

(Apple//c) 

Copy II Mac V 4.5 

Copy II Plus V 5.5 (Apple//) 

Logiciel de reseau : XL/SERVE 

Logiciel de reseau : MAC SERVE 

(disponible 1g 20/02/86) 

Lint//c (interface miniteI/Apple//c) 
prevu 02/86 



PRIXTTC 



495,00 

895.00 
595,00 
595,00 
2595.00 

3795,00 

495,00 



Pour Madntoth 51 2 K. Macintotk XL Maontosh Plu«. 



Ccs logiciels sonl auui disponibles chu voire Conce*sionnalre A^r^e Apple. 



Pom's n 22 
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Recapitulation 

MINI ED IT 

Apres la saisie de ce source sous moniteur. 

vous Ic sauvcgardercz par : 

BSAVE MINIEDIT, A$8E00, L$647 



8E00- 


n A 


10 


ou 


Fv 


UJ 


n c 
OO 


/ J 


Ay 


ohua— 


□ t* 

or. 


on 
ou 


t l 


ft j 
Vj 


Q t\ 


~1 A 


no 


J£ 


n r 1 1 n 
8E1 0— 


/iy 


nn 
UU 


At£ 


VJ 


■~ - 


J J 


OA 




OCl o 


r y 


i ' n 
w/i 


i U 


r 


or 
of. 


j 7 
i I 


Qd 

j " 


or 
OC 


BE.£U — 


1 o 
J o 


OA 


O 


17/" 

r I_- 




J3 7 


nn 

uu 


nn 

uu 


tSLZQ 


Uo 


A r~ 
^0 


UU 


oc 
Ou 




R 7 


nn 

JU 


c u 


P 3/1 — 
at, JU— 


t a 


At. 


HA 
U H 


uu 


Or 


3*i 


pn 

r \J 


nF 

U 


n — ■ ~* n 

aLJa 


n n 

LA 


i n 
1 u 


n n 
t O 




r*n 

oy 


nn 
Ut, 


vn 


n a 

UH 


1*4/1— 


nn 
uu 


no 

ua 


20 


58 


r t- 


Ay 


nn 
uu 


£U 


8E4B — 


f n 




4C 


03 


C.U 


t,u 


n o 

U J 


vn 
e u 


OCJU 


J A 
£1 


pn 
OH 


48 


20 


p> 7 


no 
uu 


? n 

£ U 


1 


a c c a 


nn 
UU 


on 
SU 


52 


E7 


*TD 
DC 


n/i 

UA 


ft ft 
AA 


AD 


p ran— 
at, 0L/~ 


c ,n 
ju 


on 


13 


94 


a ^ 
nD 




on 


7 A 


pr«rp_ 


QA 
ZfH 


£U 


B7 


00 


Fn 
r u 


AF 


FQ 


£\* 


£»£. /t/ — 


ri/1 

r u 


oA 


4C 


CP 


nn 

Ut. 




nn 

uu 


o~n 

£U 


Q£ / 


AC. 


OE, 


F0 


06 


Qf] 

2U 


A C 

H o 




PR 
CO 


8E80— 


DO 


r b 


86 


FA 




n/\ 
uu 


on 


A C 

HO 


8E88- 


n a 




10 


BO 


•s n 
CU 


£U 


D f 


nn 


oLyu — 


r u 


O D 


C9 


20 


cn 
c U 




ft £ 
Ao 


to 


fi n n n 

UL9U- 


nn 


*1 T 


20 AE 




t V 


n £ 
ub 


fin 

JU 


a c ft n 
oEAU— 


DO 


n 


E8 


DO 


r J 


o o 


W LJ 

r d 


ft Q 

Ay 


BEAB — 


nn 
uu 


nn 
UU 


56 


94 


rn 
r U 


UiS 


o n 

£ U 


D 7 
Ell 


a ran 


nn 
uu 


pf) 

r i/ 


06 


C9 


£ZX, 


r u 


n ? 

U£ 


L- y 


HhHH— 


1 f7 
At 


cn 

OU 


4C 


R2 


t.3 


AD 


PD 


pn 
r U 


O l?f*n 

BECO- 


n n 


Ay 


00 


60 


I J 






DJ 


8EC8- 




20 


60 


91 


j> n 

AO 


ft T 

01 


Ab 


6 / 


8 EDO- 


A5 


eo 


DO 


08 


■ A 

AO 


A A 

00 


Bl 


Ft 


BEDS — 


AA 


CO 


Bl 


FE 


o 


PC 

r £ 


Q C 

OU 


1 1 


ofcxi u— 


O 1 

tsi 


rr 
r c. 


DO 


18 


A C 


r A 


pn 
r u 


n p 
uo 


P FPP — 


£u 


H 7 


91 


A9 


n n 

\AmJ 




C Q 


Q 7 
7X 


o rm_ 
otr (/— 


£U 


JJ 


FE 


20 




r d 


on 


7 A 
In 


orrO 
cli.1 o - 


pc 

t O 


Ar 


DO 


03 


£U 


IF 


y u 




or l/C/— 


i 




90 


DO 


nn 


n c 
UD 


PC 


7 S 
1 D 


o r yo~ 


G4 




C9 


CD 


J R 


QA 




n q 

U i> 


or' f)_ 
Of i y 


nn 
UU 


n? 
uu 


AD 


17 






~J u 


o,n 

yu 


ori o 
Of i o — 


La 


A J 


FA 


FO 




RA 
OH 


PC 
r L- 


nn 

UU 


or 


X £ 


c u 


QD 


90 


pn 

£. U 


£ J 


j 1 


n d 


RF7R— 
or £ o 




r u 


A9 AD 


X J 




no 

u u 


A4 


or jy — 


on 


OP 

BE, 


FD A2 


nn 

uu 




C I— 


* i 'j 


or jo 


FC 

C 1- 


HI 


FE 


30 


Ffi 
r v 






uu 


pr/n. 
or * l* — 


1 D 


QA 


DO 


EF 


CR 


F8 


P4 


PA 


fl FAR— 


nn 


FF 


84 


FD 


A5 
. • — 


PR 


FO 


01 
u X 


or jl/ 




FQ 


DO 


14 


on 


ou 


y u 


70 

£ U 


Or j(J 




pn 
t u 


C9 


CF 


pn 

x U 


n/t 

Un 


CO 


R? 


RFRO — 

or ou 


r i/ 


RF 

OC 


C9 


8D 


nn 

uu 




R S 
o u 


P9 
r j 


RF6P— 
o r do 


20 


AS 


90 


DO 


13 


A5 


FC 


65 


RF70— 
or / u 






FD 


20 


3D 


90 


20 


29 


RF7R— 
or • o 




AA 


FD 


88 


84 


FC 


DO 


BO 


a re/i — 
or OU 


/ID 


ttF 
fir 


86 


69 


A 

n u 


Rrt 
uu 


R fl 


urx 


or o o 


£U 


7F 


90 


20 


7 A 


uo 


QO 
? u 


A A 


8F90— 


■ A 


01 


Bl 


9B 


fl e 


C n 

Jf 


A j 


by 


8F98- 


55 


5E 


A5 


9C 


85 


61 


A5 


9B 


8FA0- 


58 


Fl 


9B 


18 


65 


69 


85 


69 


8FA8- 


85 


60 


A5 


6A 


69 


FF 


Q5 


6A 


8FB0- 


E5 


9f? 


AA 


38 


A5 


9fl 


K5 


69 


8FB8- 


A8 


BO 


03 


E8 


C6 


61 


18 


65 


8FCQ- 


5E 


90 


03 


C6 


5F 


18 


Bl 


5E 


8FC8- 


91 


60 


CO 


DO 


F9 


E6 


5F 


E6 


8FD0- 


61 


CA 


DO 


F2 


A5 


73 


A4 


74 


8FD8- 


85 


6F 


84 


70 


A5 


69 


85 


96 


8FE0- 


65 


OF 


85 


94 


A4 


6A 


84 


97 


8FE8- 


90 


01 


C8 


84 


95 


20 


93 


D3 



V 



RFFn— 
or r u 


A 5 

nJ 


R0 


A A 


57 
Ji 


Rn 

ou 


PP 
r Ci 


7 

UJ, 


PC 
ou 


RFFR— 
o r c o 


FF 
r r 


f) 7 




fin 

wU 


A4 


KF 

vEi 


O J 


O Zf 


Ut} (}!) — 
3 U UU 


HA 

O T 


fiA 


A 4 


OF 
ur 


uu 

E> — 


FH 
r E) 


(} 1 

U X 


RR 
o o 




q 7 


j?E> 


no 

uu 


FR 
r o 






L' D 


is 


901 0— 


67 


A4 




85 


5P 




5F 


7 fl 

X l> 


9018- 


AO 


01 


Bl 


5E 

JC 


DO 

u u 


Ob 


A5 

n j 


69 


9020- 


85 


AF 


A 5 






710 


4C 


6D 


Q028- 


8F AO 


U j 




R7 


SP 


no 

u u 


PR 

E Er 


00 10— 
yu ju 


C8 


98 




u£j 


AA 


AO 
nu 


on 


07 

yx 


Q0 "?/?— 


5E 


A5 


SP 

J £ 


U Jf 


no 

u u 


CR 


7 

y j. 


SP 

JE, 


QHAO— 

*i U 


8d 


5F. 


fi D 


J3r 


QO 


il£ 


h Q 


nn 


9048- 


85 


OF 


AO 


03 


CB 


C4 


FC 


DO 




OF 


AO 


00 

u u 


R9 


~J u 


QA 


20 




9058- 


90 


C8 


C4 


FB 


DO 


F5 


A4 


Fn 

£ X> 


°t0ft0— 


Bl 


FE 


pn 

^ u 


• j 


90 
z> u 


jf 


00 
U u 


no 

u w 


onfiR— 

yuco 


E3 


EO 


FP 
- - - 


HO 

X3L' 


or 


RL 

CM 


GQ 




on 70— 
yu fu 


85 


OF 


tin 
ou 


A 

no 


np 

Ut 


on 
yu 


nn 
u u 


no 

U£ 




E6 


OF 


o u 




P.? 


pc 


AO 
n u 


07 

U£ 




Bl 


FE 


A A 


u u 


J u 


CR 
— o 


R 4 


FR 
l o 


QOflfl- 
- — — 


Bl 


FE 


U -J 


51 


60 


20 


7E 


90 




C8 


48 


D9 


IF 
• - 


94 
* * 


Q0 

If V 


08 


DO 


9098- 


10 


8A 


D9 


IS 


94 


B0 


OA 


A9 


3 Ur\ U 


AO 


20 


F.D 


FT) 


nJ 


57 

j j. 


o o 


7 

l u 


90A8- 


E9 


€8 


20 


24 


ED 


A9 


AO 


20 


QORO- 


ED 


FD AO 


04 

U 


Di 


PP 


?0 

mJ U 


7 P 

X t 


O/Jpfl- 
_/ UElO 


A9 


AO 


A4 


FA 
r & 


£ U 


7 n 

J. u 


07 


CR 

L- O 


qncn~ 

yut^u 


C4 


FC 


90 


nc 


DO 


03 


£ U 


fiA 




91 


C4 


FD 


no 

U\J 


03 


20 




07 
yx 




Bl 


FE 


DO 


03 


4C 


8E 


FD 


10 


90D8- 


E3 


84 


F8 


29 


7F AA 


A9 


DO 


90E0 


85 


B9 


A9 


CF 


85 


B8 


CA 


30 


90F8- 


08 


20 


Bl 


00 


A8 


10 


FA 

X il 


30 


Q0F0- 


F5 


AO 


00 


C8 


Bl 


B8 


7 

X V 


FB 


^ t/r o 


C8 


18 


98 


OJ 


24 


C9 


P 6 
£ U 


on 

yu 


7 D0- 


03 


20 


52 


01 


A9 


AO 


on 

s. u 


FH 


q 7 no — 


FD 


20 


Bl 


nn 

U L> 


AA 


30 


n 7 

U r 


n q 

u y 


7 7 0- 


80 


20 


ED 


pn 


DO 


F3 


70 

£ U 


pn 

EiU 


7 3 fl- 


FD 


A9 


20 


no 

u w 


9D 


09 


R0 


pn 

*z u 




ED 


FU 


A5 




C9 


26 


HO 

E> U 


<c y 




60 


AD 


00 


I— u 


10 


21 


C9 


83 


7 ?0- 


DO 


06 


2C 


7 n 


CO 


4C 


F0 

E U 


RF 

OEj 


Ji JO 


C9 


AO 


DO 


7 n 

1 u 


2C 


10 


rn 

l_ u 


271 

JHU 


7 -JO 


00 


CO 


10 


FR 


C9 


83 


F0 


FA 
cjn 




C9 


AO 


FO 


03 

U J 


2C 


10 


CO 
\r u 


7 R 

X Q 


9350- 


60 


20 


BE 


FD 


A5 


32 


48 


30 


9J5S- 


03 


20 


68 


91 


A2 


07 


20 


4A 


9] 60- 


F9 


68 


30 


08 


A9 


3F 


DO 


02 


91 68- 


A9 


FF 


85 


32 


60 


20 


58 


FC 


07 70- 


AS 


FA 


FO 


F8 


20 


9D 


91 


20 


7 78 — 


51 


Dl 


A9 


J 
us. 


A6 


FB 


F0 
r u 


OP 

Uc 


7 HQ— 
Z> X ou 


A9 


02 


20 


W Zf 


91 


20 


h7 
u j 


97 
yx 


7 PIP— 


A9 


03 


20 


CQ 


91 


A9 


04 

U H 


70 


9190- 


C9 


91 


20 


9D 


91 


A6 


25 


E8 


91 98- 


86 


22 


4C 


8R 


FD 


20 


8E 


FD 


91A0- 


AD 


13 


94 


DO 


OA 


A2 


26 


A9 


91A8- 


AD 


20 


ED 


FD 


CA 


DO 


FA 


60 


91B0- 


4C 


99 


El 


AD 


14 


94 


DO 


FB 


Q7 OR — 
? ± DO 


AD 


13 


94 


FO 

f u 


F2 


C9 


09 


HO 

£J\J 




EF 


20 


95 


FF 


20 


EA 


03 


A9 


91C8- 


06 


OA 


A8 


B9 


E8 


91 


85 


FE 


91D0- 


C8 


B9 


E8 


91 


85 


FF 


AO 


00 


91D8- 


Bl 


FE 


FO 


D3 


09 


80 


20 


ED 


91E0- 


FD 


C8 


DO 


F4 


E6 


FF 


DO 


FO 


91E8- 


F6 


91 


3E 


94 


35 


94 


23 


94 


91F0- 


56 


94 


FC 


93 


09 


94 


8D 


AA 


Q 7 c*fl_ 
y j r o 


AA 


AA 


AA 


AA 
n/j 


AA 


AA 


AA 


AA 


y£UU~~ 


AA 


AA 


AA 




AA 


AA 


AA 


AA 


9208- 


AA 


AA 


AA 


AA 


AA 


AA 


AA 


AA 


9210- 


AA 


AA 


AA 


AA 


AA 


AA 


AA 


AA 


9218- 


AA 


AA 


AA 


AA 


AA 


AA 


8D AA 



Q770- 

3 £ JL u 


AA 
nn 


AO 
n u 


A 
n u 


u V 


n7 

U£ 


CF 
ox 


n s 

U J 


nfi 

u u 




CR 


np 


a n 

nu 


CF 


nc 

UJ 


An 

nU 


C 

O J 


rp 

o o 


no ~in ~ 
y£ju 


CI 


CP 
\fd 


C7 


OJ 


n? 

U£ 


An 

nu 


7J S 
U J 


CF 
OXL 


?i JO 




AO 

Jn W 


Ci 

w J 


CQ 

o o 


CI 

O X 


rQ 


CF 


rs 
i — * 


y £ rl U 


a a 

t\U 


an 
n u 


An 

n u 


AO 
n u 


nn 


AA 
nn 


Rn 

U LJ 


AA 
nn 


Q74R- 

Z> £ 1 O 


AA 
nn 


AO 
nu 


AO 
n u 


AO 
nu 


AO 


C4 

O T 


cl 

O X 


CE 

ox— 


y £ uu 


U J 


AO 
n u 


if J 


CF 
ox- 


AO 
nu 


DO 


D2 


CF 

Xfl 


Z?£JO 




07 

U£ 


CI 
o X 


cn 

ox/ 


CD 
ox/ 


rs 

O J 


AO 
n u 


CP 


Q0f\0 — 

Z*£ O U 


ci 


n? 

UJ 


CQ 


CI 

O J 


AO 
nu 


AO 
nU 


A 
n u 


AO 
nu 


y £ j o 


AO 
nu 


AO 
nu 


AO 
n u 


AO 
n u 


AA 
nn 


AA 
nn 


fl n 

u u 


AA 
nn 


0070- 

3>T / I/ 


iA 


AO 


an 


no 

uu 


o I 


D7 

UA 


h n 

r\ U 


hO 


9P7R- 

Zf £ 1 \J 


C7 


n r , 

U J 


CQ 


CC 


CC 


CI 


D5 


CD 


Q2R0- 
y £<j<j 


j 


AO 
n u 


AO 
n u 


AO 
n u 


no 

u u 


CF 

Oi 


04 

U 1 


AO 

nu 


npRR — 

J £ O O 


AO 
n u 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


y £ yu 


AO 
n u 


AO 
n U 


AO 
n u 


AO 
n u 


AA 
nn 


AA 
nn 


HO 

U LJ 


AA 




AA 
jm 


AA 

J4JH 


hA 


Ah 


hh 


Ah 

nn 


h h 


ha 

tin 


QOB O — 
y£nU 


a a 
nn 


an 
nn 


A A 
nn 


A A 
nn 


A A 
nn 


AA 

rin 


A A 
nn 


A A 

nn\ 


Q7AQ- 
y£nO 


AA 

fin 


AA 

nn 


A A 

nn 


AA 

nn 


AA 
nn 


AA 

nn 


A A 
nn 


AA 

nn 


QPnn — 


A A 
nn 


A A 
nn 


AA 
nn 


n/\ 


AA 
nn 


AA 
nn 


A A 
nn 


AA 
nn 


y£DO 


AA 

nn 


AA 
nn 


AA 
nn 


AA 
nn 


AA 
nn 


AA 

nn 


pn 

o u 


RD 
ou 


QPC0- 
y t- v* v 


8D 
o U 


RC 

X>w 


RC 
u V 


RC 

OO 


AO 
nu 


AO 


CC 


C5 


QPCP- 

Z? £ \r O 


UJ 


AO 
n u 


\f j 


CC 
OO 


rs 

O J 


n? 

UJ 


AO 
n u 


C4 

O " 


0700- 

3£UU 


LrJ 


AO 
n u 


CC 


AO 
nu 


CI 
ox 


cn 

OX/ 


DO 

u u 


O J 


QpnR — 

Zs £ UO 


U £ 


U J 


CI 
\f X 


CF 

0£i 


C4 

O 


AO 

rlU 


A 
n u 


RF 


QOFn- 
y£r, u 


PF 


RP 


RT\ 

OU 


pn 

ou 


Cfi 
o o 


A 1 
nJ 


AO 


BD 


npFR — 
ZJ £ E, O 


AO 
nu 


no 

uu 


HP 


("S 

O J 


cn 

\fU 


CQ 
o y 


C5 


D2 


Z3£E U 


C*i 
\-j 


AO 
n u 


cc 


o Zf 


C'7 
o / 


CF 
oxi 


C5 


AO 


07FR- 

y JL £ o 


AO 
n u 


AO 

n U 


AO 
n u 


AO 


AO 

n j 


AO 


D3 A3 


9 "700 — 
y uu u 


AO 
nu 


Rn 

DU 


AO 
n u 


ni 

U J 


CC 
OO 


CF 
or 


D4 


8D 


9308- 

Zr JU •J 


cc 


A3 


AO 

n ij 


BD 


AO 


C4 


C5 


D2 


9310 


CE 


C9 


C5 


D2 


C5 


AO 


CC 


C9 


118- 

Z? ~J ± u 


C7 

Kf f 


CF 

\f Xj 


rs 
j 


AO 


AO 


AO 


AO 


AO 


120- 

if <JCi \J 


AO 
nu 


AO 
/it/ 


CR 


AO 


AO 


RD 


AO 


Cl 


4 3PR — 

y j£ o 


CQ 


C4 


C^ 
J 


pn 

ou 


pn 

ou 


A 7 
n£ 


AE 


AE 


70— 


fl F 

Mr. 


AO 
H U 


21 n 

H U 


AO 
nU 


AO 
nU 


zo 

nU 


BD AO 


Zt J J o 


U^l 


np 

U£ 


CF 
\f E 


n r > 

UJ 


nfi 

u V 


rs 

O J 


D2 


AO 


y jiu 


UJ 


CF 
I— c 


rs 

<r J 


An 

n u 


CI 

O J 


CR 
o o 


Cl 


C9 


1AR- 
zf j 'i a 


CF 


CI 
±f j 


RD 
o u 


A? 


AF 


AE 


AE 


AF 


9350- 


AE 


AE 


A hi 


AO 


BD 


AO 


C3 


C8 




Jl 


CF 


C7 


C5 

O J 


D2 

ux 


AO 

n u 


D5 


CE 


y j d u 


j 


An 

nu 


<~- j 


CR 
o o 


CI 
O X 


CQ 
o y 


CE 


C5 


Q 7£8- 
yJOO — 


Rn 

OU 


Rrt 

ou 


uo 


ol 


OO 


r^ 
uj 


05 D2 


a 77n 


n o 

UJ 


a n 

nu 


nn 

uu 


C1 
ox 


no 

U£ 


An 

n u 


C4 


C5 


y j 1 o 


Cfi 


CI 
v>x 


U J 


U 3 


AO 
n u 


RA 
on 


AO 


A6 


9380- 


AO 


D3 


BO 


AC 


C6 


BO 


AC 


CC 


9388- 


B6 


85 


B5 


B3 


B5 


8D 


8D 


8D 


9390~ 


EC 


BC 


BC 


AO 


AO 


CC 


C5 D3 


9398- 


AO 


CI 


D5 


D4 


D2 


C5 


D3 


AO 


QlAO- 

zf un v 


C3 
i_ j 


CC 


C5 


ni 

U J 


AO 


AO 


AO AO 


n ono — 
j jno 


a n 

n u 


RP 


RP 
ErE, 


RP 

E>Er 


Rn 

ou 


ftn 

O U 


CF 


CE 


q 'Jon — 
y jdu 


Ch 


AO 
n u 


AO 

n i/ 


AO 
n u 


AO 
nu 


nn 

uu 


AO 


C3 


y jejc 


CP 


CI 

\r X 


CF 

KrC 


C7 
o » 


rs 

O J 


AO 


D5 


CE 


Zf JUL/ 


•-•j 


AO 
n u 


AO 
n <j 


AO 
n ~> 


AO 
nu 


C5 


D3 


DO 


Q3C8- 


CI 


C3 


C5 


AO 


AO 


BD 


AO 


DO 


9 1D0- 

^ JUU 


CI 


D5 


D3 


C5 


8D 


D2 


CS 


D4 


93D8- 


D5 


D2 


CE 


AO 


BD 


AO 


C3 


C8 


93E0- 


CI 


CE 


C7 


CS 


AO 


D4 


CF 


D5 


Q1F8- 

Zf JL U 


U ' 


AO 
nu 


AO 
n u 


AO 
n \j 


AO 


C3 


U4 


U2 


93F0- 


CC 


AO 


C3 


AO 


BD 


AO 


D3 


D4 


Q ?Pfl- 
y ji o 


CF 


no 

u u 


A 
n u 


00 
u u 


rs 

O J 


CF 


C4 


AD 


9400- 


CF 


C6 


AD 


DO 


CI 


D3 


D3 


8D 


9408- 


00 


89 


B8 


BO 


CE 


00 


53 


46 


9410- 


4C 


22 


48 


00 


00 


00 


00 


FF 


9418- 


FF 


01 


OA 


64 


E8 


10 


00 


00 


y t£ u 


no 

u u 


0'i 

U J 


77 


CF 

OO 


CF 

Of 


/JS 

UJ 


Ub 


05 


QA7R — 
V '/•£ O — 


CC 


CC 


if J 


fl n 

MU 


CO 
O J 


cR 
o o 


Cl 


C0 


9430- 


CE 


C5 


BA 


AO 


00 


CI 


CE 


C3 


9438- 


C9 


C5 


CE 


CE 


C5 


AO 


C3 


C8 


9440- 


CI 


C9 


CE 


C5 


BA 


AO 


00 





56 



Pom's n° 22 



Manfred Brede 



yous connaissez tous le 
jeudu "Master Mind", 
mais avez-vous deja 
joue aux "Six lettres" ? 
Ce divertissement, connu depuis 
line bonne cinquantaine d'annees, 
utilise des regies et une presen- 
tation fort semblables. 

Le jeu 

II consistc & retrouver des mots 
de six lettres presents dans les 
dictionnaires courants (nous nc 
ferons pas de publicite). Le 
programme affiche, pour chaque 
proposition, le nombre de lettres 
correctement placees. 

I^e detail des regies est affiche en 
debut de programme. II est ega- 
lement possible de modifier le 
fichier contenant le diclionnaire 
(un millier de mots). D'autre part, 
le programme gfcre un index afin 

que le joueur ait a trouver tous les 
mots du fichier avant de retomber 
sur un mot deji tire. 



Le programme 

Les fichiers utilises sont : 

• SIX LETTRES 

menu general; 

• SIX LETTRES.TEXT 

fichier renfermant les mots 
^ trouver; 

• SIX LETTRES. JEU 

le jeu proprement dit; 

• SIX LETTRES.REGLES 

affichage des regies; 

• SIX LETTRES.MODIFIER 

modification du fichier 
texte. 

On accfede au programme par : 
RUN SIX LETTRES 

La configuration necessaire com- 
prend un Apple II +, He ou He 
sous DOS 3.3 ou ProDOS. 

Les lecteurs de Pom's qui ne 
disposent pas de la disquette 
d'aecompagnement devront creer 
le fichier SIX LETTRES.TEXT, 
sous forme de fichier & acc£s 

direct de longueur 7, comportant 



en enregistrement le nombre de 
mots (999), en enregistrement 1 
la position de l'index (norma- 
lcmcnt 999) suivi de 999 enre- 
gistrements de mots de six lettres 
suivis dun retour-chariot. 



Sur un Apple 11+ sans ROM 
LC 

Modification k apporter : 

1) SIX LETTRES: 

ajouter "100 CALL 768"; 

2) SIX LETTRESJEU : 

ajouter "590 CALL 768"; 

3) SIX LETTRES.MODIFIER : 

enlever le RETURN de la 
ligne 590, et ajouter "5530 
CALL 768: RETURN"; 

4) pour commencer le jeu : 

BLOAD SHIFT (voir dans 
Pom's N° 14), puis RUN 
SIX LETTRES. 



Fichier 'SIX LETTRES.TEXT 
(voir texte) 



Routine Shift 






999 


13 


SABBAT 


1 


664 


14 


CORAIL 


2 


AMICAL 






3 


PETIOT 


992 


ELIXIR 


4 


DRAYER 


993 


DECLIC 


5 


ABREGE 


994 


EXAMEN 


6 


PROCES 


995 


PINSON 


7 


INFLUX 


996 


CUISSE 


8 


MOITIE 


997 


ALltNE 


9 


BEGAYE 


998 


SEIGLE 


10 


THORAX 


999 


MANUEL 


11 


SURVOL 


1000 


YOUYOU 


12 


ASSAUT 


1001 


RECOIN 



Ceite routine, extraite du Pom's n!4, 
pertnet aux lecteurs qui n'ont pas les 
minuscules a V e'er an d'utiliser ce 
programme sans problcmc. Apres saisie 
sous moniteur, vous la sauvegarderez 
par . 

BSAVF. SHIFT, A$300, LS4B 

0300- A 9 OF 85 36 A9 03 85 37 
0306- A9 00 85 48 4C EA 03 8D 
0310- 4A 03 08 8A 48 AD 4A 03 
0318- A2 07 DD 3A 03 FO OC CA 
0320- 10 F8 C9 B0 90 08 38 E9 
0328- 20 DO 03 BD 42 03 8D 4A 
0330- 3 an AA 28 AD 4A 03 4C 
0338- FO FD CO DC E0 FB FC FD 
0340- FE FF CI C3 A1 C5 D5 C5 
0348- AD Al 00 
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Programme SIX LETTRES 

10 REM le leu desSlX LETTRES real! 
se par Manfred Brede 

20 REM six lettres menu principal 

version 1, 23.05.8b 
110 E$ - CHR$ (4) 4 "RUN SIX LETTRE 

S." 

120 A$ - » ":A$ - A$ + A$:A$ - A 

$ + A$;A$ = A$ + A$ 
130 POKE 32,0: POKE 33, 40: POKE 34,0 

: POKE 35,24: H0MF. 
200 HTAB 9: INVERSE : PRINT " SIX 
LETTRES ": NORMAL 

210 VTAB 4: HTAB 14: PRINT "menu pri 

ncipal": PRINT A$ 
220 VTAB 10: HTAB 8: PRINT "J joue 

r aux six lettres" 
230 VTAB 12: HTAB 8: PRINT "R regl 

os du ieu " 
240 VTAB 14: HTAB 8; PRINT "M modi 

fier le fichier" 
250 PRINT : PRINT : HTAB 7: PRINT "E 

sc fin " 

260 VTAR 23: PRINT A$; : VTAB 24: HTA 

B 1: PRINT "appuyez sur la touch 

e J, R r M ou Esc: "; 
300 GET A$: IF A$ = CHR$ (27) THEN 

HOME : END 
310 IF A$ = "J" OR A$ = "V THEN E$ 

= E$ + "JEU": GOTO 350 
320 IF A$ = "R" OR A$ = "r" THEN E$ 

= E$ + "REGLES " ; GOTO 350 
330 IF AS = "M" OR A$ = "m" THEN E$ 

= E$ f "MODIFIER" : GOTO 350 
340 GOTO 300 

350 PRINT A$; : VTAB 1: HTAB 1: PRINT 
: PRTNT F,$ 



Programme SIX LETTRES. 
REGLES 

100 REM regies du jeu des six lettre 

s version 1, 2 R. 05. 85 
110 A$ = " ":A$ = A$ + A$:A$ = A 

$ + A$:A$ = A$ + A$ 
120 POKE 32 f 0: POKE 33,40: POKE 34,0 

: POKE 35,24: HOME 
130 HTAB 9: INVERSE : PRINT " SIX 
LETTRES "; NORMAL : VTA 

B 23: PRINT AS;: VTAB 24: HTAB 1 

0: PRINT "appuyez sur une touche 

rr . 

140 POKE 34,2: POKE 35,21: HOME 
1000 REM page 1 

1010 T$ = "Reqles du jeu des 'six le 

ttres'": GOSUB 7000 
1020 print "Le but du ieu est de tro 

uver un mot de" : PRINT 



1030 PRINT "six lettres : verbe, nom 
commun, adjec-": PRINT 

1040 PRINT "tif, participe etc.": PR 

INT : PRINT 
1050 PRINT "Les noms propres, les no 

ms mis au femi-": PRINT 
1060 PRINT "nin ou au pluriel et les 

verbes conju-": PRINT 
1070 PRINT "gues ne fiqurent pas da 

ns les mots a": PRINT 
1080 PRINT "trouver." 
1090 GOSUB 8000 
1500 REM page 2 

1510 T$ = "Mecanisme": GOSUB 7000 
1520 PRINT "Au debut du jeu, le prog 

ramme choisit" : print 
1530 PRINT "un mot que le joueur doi 

t trouver. Ce"; print 
1540 PRINT "dernier ecrit un mot de 

six lettres au": print 

1550 PRINT "hasard.": PRINT : PRINT 
1560 PRINT "Le programme aitiche le 

nombre de let-": PRINT 
1570 PRINT "tres qui sont placees a 

la bonne place": PRINT 
1580 PRTNT "dans le mot a trouver ."; 
1590 GOSUB 8000 
2000 REM page 3 

2010 T$ = "Exemple": GOSUB 7000: PRI 
NT 

2020 PRINT "mot a trouver : ";: INVE 
RSE : PRINT "CIGALE " : NORMAL : P 
HINT : PRINT A$ 

2030 PRINT "mot enonce : INVE 
RSE : PRINT "EGALES" ; : NORMAL : 
HTAB 30: PRINT "rcponsc : 0" 

2040 PRINT "Aucune lettre n r occupe 1 
a meme place.": PRINT 

2050 PRTNT A$ 

2060 PRINT "mot enonce ; "/ ; INVE 

RSE : PRTNT "GTTANE" ; : NORMAL : 

HTAB 30: PRINT "reponse : 3" 
2070 PRINT "Le? lettres I, A et E oc 

cupent la meme place que dans 1 

e mot CIGALE. 
2080 GOSUB 8000 
2500 REM paqe 4 
2510 T$ = "Nota": GOSUB 7000 
2520 PRINT "La citation de mots par 

le joueur admet": PRINT 
2530 PRINT "toutes les formes qrwima 

ticales :": PRINT : PRTNT 
2540 PRINT "pluriel, feminin, verbe 

conjugue etc.": PRINT 
2550 GOSUB 8000 
3000 REM page 5 

3010 T$ = "Conduite du jeu": GOSUB 7 
000 

3020 PRINT "Ayant obtenu la reponse 

a un mot enonce, " 
3030 PRINT "le joueur l 1 exploite en 

eliminant les": PRINT 
3040 PRINT "lettres rejetees. ": PRIN 

T : PRINT 
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3050 PRINT "Ainsi un zero permet d'e 

liminer defini-": PRINT 
3060 PRINT "tivement toutes les lett 

res du mot. ": PRINT 
3070 GOSUB 8000 
3500 REM paqe 6 

3510 PRINT : PRINT "Une reponse posi 

tive guide le joueur": PRINT 
3520 PRINT "dans le choix des mots s 

uivants, selon" : PRINT 
3530 PRINT "les leLLres qu'il suppos 

e bonnes et que": PRINT 
3540 PRINT "d' autres mots lui permet 

tront de con-": PRINT 
3550 PRINT "firmer ou d'exclure.": P 

RINT : PRINT 
3560 PRINT "Conclusion:": PRINT 
3570 PRINT "La performance reside d 

ans l'enonce": PRINT 
3580 PRINT "d'un minimum de mots pou 

r decouvrir le" : PRINT 
3590 PRINT "mot a trouver. "; 
3600 GOSUB 8000 
4000 REM paqe 7 

4010 T$ = "Bloc-notes": GOSUB 7000 
4020 PRINT "Pour se rappeler les let 

tres deja trou-": PRINT 
4030 PRINT "vees, le joueur a la pos 

sibilite de les": PRINT 
4040 PRINT "noter en bas de l'ecran 

a gauche.": PRINT : PRINT 
4050 PRINT "L'acces au bloc-notes et 

le retour au": PRINT 
4060 PRINT "leu se font au moyen de 

la touche Esc. " 
4070 GOSUB 8000 
4500 REM page 8 

4510 T$ = "Touches permises" : GOSUB 
7000 

4520 PRINT "A ... Z : ecrire une le 

ttre": PRINT 
4530 PRINT "-> : positionner $ 

ur la lettre": print " 
suivante": PRINT 
4540 PRINT "<- : positionner s 

ur la lettre": PRINT " 

precedante" : PRINT 

4550 PRINT "->/ ; positionner a 

ur la premiere" : PRINT " 

lettre du mot": PRINT 4560 PR 
TNT "Return : enoncer un mot": 
PRINT 
4570 GOSUB 8000 
5000 REM paqe 9 
5010 PRINT 

5020 PRINT "Ctrl-A : afficher un a 

nagramme du" : PRINT " 

mot a trouver"; PRINT 
5030 PRINT "Ctrl-L : afficher une 

lettre du n : PRINT 19 mo 

t a trouver" : PRINT 
5040 PRINT "Ctrl-T : verification 

des lettres": PRINT " 

du bloc-notes" : PRINT 



5050 PRINT "Ctrl-F : fin du jcu": 
PRINT 

5060 PRINT "Esc : acces au bloc 

-notes,'": PRINT " reto 
ur au jeu": PRINT 

5070 PRTNT "Del ou . : ef facer une 1 
ettre du bloc-": PRINT " 
note " ; 

5080 GOSUB 6000 

5500 REM page 10 

5510 T$ = "Remarques": GQSU& 7000 
5520 PRINT "Le nombre total des mots 

de six lettres": PRINT 
5530 PRINT "est affiche en haut a ga 

uche de l'ecran.": PRINT 
5540 PRINT "Le nombre en bas a droi 

te de l'ecran": PRINT 
5550 PRINT "vous informe sur le nomb 

re des mots qui": PRTNT 
5560 PRINT "restent a trouver." 
6000 REM fin 

6010 VTAB 21: HTAB 1: PRINT "f i n 

des regies"/ 
6020 GOSUB 8000 

6030 POKE 34,0: POKE 35,24: HOME 
6040 PRINT CHR$ (4); "RUN SIX LETTRE 
S" 

7000 REM afficher un titre 
7010 Tl% - LEN (T$):T2% = 1 + (40 - 
Tl%) / 2: VTAB 3: HTAB T2%: PRI 
NT T$: HTAB T2% : PRINT LEFT$ (A 
$,T1%) : PRTNT : PRTNT : RETURN 
8000 REM appuyer sur une Louche 
8010 POKE 49168,0: VTAB 21: HTAB 40: 
GET B$ : PRINT : HOME : RETURN 



Programme 

SIX LETTRES. MODIFIER 

100 REM modifications au fichier des 

mots version 1, 23.5.85 
120 E$ = "SIX LETTRES. TEXT" :D$ = CH 

S$ (4) :K$ = CIIR$ (7) 
140 F.R$ = D$ + "READ" + E$ + ",R":EW 

$ ^ D$ + "WRITE" + E$ + ",R" 
160 DIM B$(6),S$(6) 

180 A? = " ":A$ = A$ + A$:A$ = A 

$ + A$:A$ = A$ + A$ 

200 S$(0) = A$;S$(l) = "1 ajouter 
unmot":S$(2) - "2 chanqer un 
mot" :S$ (3) = "3 eliminer un mot 
tr :S$(4) = "4 verifier un mot":S 
$(5) = "b liste des mots" :S$ (6) 
= "6 modifier 1' index" 

240 PRINT D$; "UNLOCK" ;E$: PRINT D$;" 
OPEN";E$; ",L7" : PRINT ER$; "0" : I 
NPUT MAX%: PRINT ER$;"1": TNPUT 
N% 



Pom's n° 22 



260 QUI? = K$ f "le mot existe deja 
dans le fichier. ":N0$ = K$ + "1 
e mot n'existe pas dans le fichi 
er. " 

300 POKE 32,0: POKE 33,40: POKE 34,0 
: POKE 35,24: GOSUB 5500: HOME 

320 HTAB 9: INVERSE : PRINT " SIX 
L E T T R E S NORMAL 

340 VTAB 4: PRINT "modifications"/ S 
PC( ll);"<Esc pour finir>": VTAB 
5: PRINT S$(0): GOSUB 8000 

360 VTAB 23: HTAB 1: PRINT S$(0);: P 
OKE 34,9: POKE 35,22 

500 rem menu 

520 S% = 0: HOME : FOR I = 1 TO 6: H 
TAB 12: PRINT S$(I): PRINT : NEX 
T 

540 VTAB 24: PRINT "appuyez sur la t 
ouche 1 a 6 ou Esc ";: CALL - 9 
58 

560 GOSUB 5000: IF A$ - CHR$ (27) T 
HEN 800 

580 IF A$ < "1" OR A$ > "6" THEN 560 
600 VTAB 24: HTAB 1: PRINT S$ ( VAL ( 

A$));: CALL - 958: HOME 
620 ON VAL (A$) GOSUB 1000, 1500, 200 

0,2500, 3000,3500 
640 GOTO 500 
800 REM fin 

820 GOSUB 5600: PRINT D$ ; "CLOSE" ;E$ : 

PRINT D$;"LOCK";E$ 
840 POKE 34,0: POKE 35,24: HOME 
900 PRINT D$;"RUN SIX LETTRES" 
910 END 

1000 REM ajouter 
1020 S% = S% + 1 

1040 VTAB 12: HTAB 1: PRINT "ecrivez 
le mot a ajouter :";: GOSUB 600 



1060 GOSUB 7000: REM chercher 

1080 IF E% THEN GOSUB 5500: VTAB 15 

: HTAB 1: PRINT OUIS;: GOTO 1140 
1100 MAX% = MAX% + 2; PRINT EW$;MAX% 
+ 2: PRINT A$: PRINT EW$;"0": P 

RINT MAX% 

1120 GOSUB 5500: GOSUB 8000: VTAB 15 
: HTAB 1: PRINT K$;"le mot a ete 
ajoute. 
1140 GQSUB 5000: GOTO 1040 
1500 REM changer 
1520 S% - S% + 1 

154 VTAB 12: HTAB 1: PRINT "ccrivcz 
le mot a changer :";: GOSUB 600 



1560 GOSUB 1000: REM chercher 

1580 GOSUB 5500: IF E% = THEN VTA 

B 75; HTAB 1: PRINT N0$; : GOTO 1 

740 

1600 RC% = R%:AC$ = A$ 

1620 VTAB 14: HTAB 1: PRINT K$;"ct2an 

qer contre quel mot :";: GOSUB 

6000 

164 IF A$ - AC$ THEN 1720 
1660 GOSUB 7000: REM chercher 



1680 IF E% THEN GOSUB 5500: VTAB 17 
T HTAB 1: PRINT OUI$;: GOSUB 500 
0: GOTO 1620 

1700 PRINT EW$;RC%: PRINT A$ : GOSUB 
550U 

1720 VTAB 17: HTAB 1: PRINT K$;"lc m 

ot a ete chanqe. "; 
1740 GOSUB 5000: GOTO 1540 
2000 HEM eliminer 
2020 Si = S* + 1 

2040 VTAB 12: HTAB 1: IF MAX% < 2 TH 
EN CALL - 958: PRINT "impossib 
le, il y a moins de 3 mots": PRI 
NT : PRINT "dans le lichier ";: 
GOTO 2160 

2060 PRINT "ecrivez le mot a elimine 

r GOSUB 6000: GOSUB 7000: R 

EM chercher 
2080 GOSUB 5500: IF E% - THEN VTA 

B 15: HTAB 1: PRINT NO$ ; : GOSUB 

5000: GOTO 2040 
2100 M% = MAX% + 2: PRINT ER$;M%: IN 

PUT AI$: PRINT EW$;M%: PRINT A$ : 
PRINT EW$;R%: PRINT AI$ 
2120 MAX% = MAX% - 1: PRINT EW$;"0": 
PRINT MAX%: IF N% > MAX% THEN N 

% = MAX%: PRINT EW$;"1": PRINT N 

% 

2140 GOSUB 5500: GOSUB 8000: VTAB' 15 
: HTAB 1: PRINT K$;"le mot a ete 
elimine. "; 
2160 GOSUB 5000: GOTO 2040 
2500 REM verifier 
2520 S% = S% + 1 

2540 VTAB 12: HTAB 1: PRINT "ecrivez 
le mot a verifier :";: GOSUB 60 
00 

2560 GOSUB 7000: REM chercher 
2580 GOSUB 5500: VTAB 15: HTAB 1: IF 
E% THEN PRINT OUI$;: GOTO 2620 
: REM trouvc 
2600 PRINT N0$;: REM pas trouve 
2620 GOSUB 5000: GOTO 2540 
3000 REM liste 
3020 S% = S% + 1 

3040 M% = MAX% + 2:C% = 3:R% = 7 :P% 
- (MAX% + 1) / 50:P% = (P% + 9) 
/ 10:P% = P% * 50:PF% = MAX% / 5 
0:PF% = PF% * 50: PRINT 

3060 1% = 1:1 =2 

3080 IF C% < 33 THEN 3120 

3100 C% - 3:R% = R% + 1 : IF R% > 10 
THEN GOSUB 3320 

3120 PRINT ER$;I: INPUT AI$ : VTAB 9 

+ R%: HTAB C% ; PRINT AI$:C% = C% 
+ 7:1 = 1 + 1: IF I< - M% THE 
N 3080 

3140 C% = 3: GOSUB 3320: IF I < = M 

% THEN 3120 
3160 GOTO 3060 
3300 REM nouvelle page 
3320 S% = S% + 1 

3340 GOSUB 5600: VTAB 21: HTAB 3: PR 
INT "acces rapide par les touche 



60 
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s a 9";: VTAB 24: HTAB 20: PRI 
NT - 2; ") n ?K$J ' 1% = 

I - 1 

3360 VTAB 24: HTAB 36: GOSUB 5000: T 
F A$ < "0" OR A$ > "9" THEN 3420 

3380 I = VAL (A$) * P%: IF I > PF% 
THEN I = PF% 

3400 1=1+ 2:1% = 1-2 

3420 VTAB 24: HTAB 20: CALL - 958: 
HOME : PRINT :R% - 1 

3440 S% = S% - 1: RETURN 

3500 REM 1 'index 

3520 S% = S% + 1 

354 VTAB 12: HTAB 1: PRINT "I' index 
actuel : ";N% + 1;: CALL - 958 
3560 VTAB 14: HTAB 1: PRINT "nouvel 
index : 

3580 N$ = "0":I% - LEN ( STR$ (MAX% 

+ 1)):I = 1 
3600 GOSUB 5000: IF A$ = CHR$ (13) 

THEN 3900: REM Return 
3620 IF A$ < "0" OR "9" < A$ THEN 36 

00 

3640 PRINT A$; :N$ = N$ + A$ : I = I + 

1: IF I < - 1% THEN 3600 
3900 I = VAL (N$) : IF I < 2 OR MAX% 
+ 1 < I THEN VTAB 16: HTAB 1: 

PRINT K$;"l' index doit etre entr 

e 2 et ";MAX% + 1;" ";; COSUB 50 

00: GOTO 3540 
3920 N% = I - 1: PRINT : PRINT EW$; n 

1": PRINT N%: GOSUB 5520: PRINT 

K$: GOTO 3540 
5000 REM appuyer svr une touche 
5020 S% = S% + 1: POKE 49168,0: GET 

A$: IF A$ < > CHR$ (27) THEN 5 

060; REM ESC 
5040 IF S% > 1 THEN POP :S% = S% - 

2; GOTO 5040 
5060 S% = $% - 1: RETURN 
5500 REM clavier, ecran 

5520 PRINT D$;"INf0": PRINT D$;"PR#0 
"; RETURN 

5600 VTAB 1: HTAB 1: PRINT : GOTO 55 
20 

6000 REM entrer un mot (sousprogramm 
ej 

6020 S% - S% + 2 

6040 CALL - 958:1% = 7 ;C* - 7 + PE 
EK (36) : REM position horizontal 
e du curseur 

6060 1=1 

6080 HTAB C% -f J; GOSUB 5000 

6100 IF 1% < 7 THEN 6180 

6120 IF A$ - CHR$ (13) THEN 6500 

6140 IF I < 7 THEN 6180 

6160 GOTO 6280 

6180 IF A$ > "Z" THEN AS = CHR$ ( A 

SC (A$) - 32) 
6200 TF A$ > "Z" THEN 6080 
6220 IF A$ < "A" THEN 6280 
624 B$(I) = A$:I = I + 1: IF 1% < I 

THEN 1% = I: REM lettre 
6260 GOTO 6440 



6280 IF A$ < > CHR$ (8) THEN 6340: 
REM <~ 

6300 IF I > 1 THEN I - I - 1: GOTO 6 
440 

6320 GOTO 6080 

6340 TF A$ < > CHR$ {21) THEN 6400 
; REM -> 

6360 IF I < 1% THEN I = T + I: GOTO 

6440 
6380 GOTO 6080 

6400 IF A$ < > CHR$ (9) THEN 6080: 

REM ->/ 
6420 GOTO 6060 
6440 PRINT A$; : GOTO 6080 
6500 A$ = B$(l) f B$(2) + B$ (3) + B$ 
(4) + B$(5) + B$(6): HTAB C% + 7 
; PRINT :S% = S% - 1: RETURN 
7000 REM chercher un mot (sousprogra 
mme) 

7020 E% = 0:M% = MAX% + 2:R% = 2 
7040 PRINT ER$;R%: INPUT AI$ : IF A$ 

< > AI$ THEN R% = R% + 1: IF R% 
< = M% THEN 7040 
7060 IF R% < = M% THEN E% = 1 
7030 GOSUB 5500: RETURN 
8000 REM nornbre 

8020 VTAB 7: PRINT "nombre de mots : 
";MAX% + 1;" ";: RETURN 



Programme 

SIX LETTRES.JEU 

100 REM six lettrea vcrsi 

on 3, 26.05.85 
110 DIM A$(6) ,B$(6) ,T$ (6) :I - 0:A$(0 

) = "":B$(0) = wn ?T$(0) = 

120 C$ = " ":C$ - C$ + " " + 

C$rC$ = C$ 4 " » + C$ 
130 E$ = "SIX LETTRES - TEXT" : D$ = CH 

R$ (4) :ER$ = D$ + "READ" + E$ + 

",R":EW$ = D$ i- "WRITE" + E$ + " 

140 PRINT D$; "UNLOCK" ;E$: PRINT D$;" 

OPEN";E$; ",L7": PRINT ER$ ; "0 " : I 
NPUT MAX%: PRINT ER$ ;" 1 " : INPUT 
N% 

150 POKE 32,0: POKE 33,40: POKE 34,0 
: POKE 35,24: HOME : PRINT MAX% 
+ U: HTAB 8: INVERSE : PRINT " 

SIX LETTRES "; NORMA 
L : POKE 34,2 

500 REM choisir un mot 

510 X% = RND (1) * N% 

520 PRINT ER$;X% f 2: INPUT A$(0): P 
RINT ER$;N% + 2: INPUT A$(l): PR 
INT EW$;N% +2: PRINT A$(0): PRI 
NT EW$;X% f 2: PRINT A$ (1) 

530 N% = N% - 1 : IF N% < 1 THEN N% = 
MAX% 

540 PRTNT F.W$;"1"; PRINT N% : PRINT D 
$; "IN 40 " : PRINT D$; "PRiO " 
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550 FOR I = 1 TO 6:A$(I) » MID$ (AS 

(0) ,1,1) ; NEXT 
560 HOME : VTAB 3: FOR I = 1 TO 10: 

PRINT ; PRINT C$ : NEXT : VTAB 24 

: INVERSE : PRINT LEFT$ (C$, 6) ; 

: NORMAL 

570 A$ = STR$ (N% + 1) : BTAB 39 - 

LEN (A$) : PRINT A$; 
580 FOR 1=1 TO 6:T$(I) = "; NEXT 

: rem effacer le bloc-notes 
1000 REM ecriver un mot 
1010 H% = 
1020 V% - 4 

1030 FOR I = 1 TO 6;B$(I) = ""; NEXT 

:L% - 1:1% - 1 
1040 1 = 1 

1050 VTAB V%: HTAB H% + I; POKE 4916 

8,0: GET A$ 
1060 IF 1% < 7 THEN 1100 
1070 TF T,% = 7 AND A$ = CHR$ (13) T 

HEN 1500: REM Retuzn 
1080 IF I < 7 THEN 1100 
1090 GOTO 1170 

1100 IF A$ > "Z" THEN A$ = CHR$ ( A 

SC (A$) - 32) 
1110 IF A$ < "A" OR A$ > "Z" THEN 11 

70 

1120 ON L% GOTO 1130,1140: REM lcttr 
e 

1130 B$(I) = A$: GOTO 1150 
1140 TS(I) = A$ 

1150 I = I t 1: IF 1% < I THEN 1% = 
I 

1160 GOTO 1450 

1170 IF A$ < > CHR$ (8) THEN 1200: 
REM <- 

1180 IF I > 1 THEN 1 = 1-1: GOTO 1 
450 

1190 GOTO 1050 

1200 IF A$ < > CHR$ (21) THEN 1230 
: REM -> 

1210 IF I < 1% THEN 1=1 + 1: GOTO 

1450 
1220 GOTO 1050 

1230 IF A$ = CHR$ (9) THEN 1040: RE 
M ->/ 

1240 IF A$ < > CI1R$ (27) THEN 1290 

: REM Esc 
1250 ON L% GOTO 1260, 1280 
1260 LV% = V%:LH% = H%:LI% = I%:LI = 
I:L% = 2: REM debut bloc-notes 
1270 V% = 24:H% = 0:1% = 7: INVERSE 

: GOTO 1040 
1280 V% = LV%:H% = LH%:I% = LI%rI = 

LI:L% = 1: NORMAL : GOTO 1050: R 

EM fin de notes 
1290 ON L% GOTO 1300,1410 
1300 IF A$ = CHR$ (6) THEN 1550: RE 

M Ctrl-F fin 
1310 IF A$ < > CHR? (1) THEN 1350: 

REM Ctrl-A anagramme 
1320 FOR I = 1 TO 6:B$(I) - A$ (I) : N 

EXT :LI% = 6 + 100 * RND (1) 
1330 FOR I = 1 TO LI%:X% - 1 + 6 * 



1340 

1350 
1360 

1370 
1380 



1390 
1400 



1410 
1420 



1430 

1440 
1450 
1500 
1510 

1520 

1530 

1540 

1550 



1560 

1600 

1610 
1620 



RND (1) :I% = 1 + 6 * RND (1) :A$ 
= B$ (X%) :B$ (X%) = B$ (1%) :B$ (1%) 
= A$: NEXT 

HTAB H% + 1: INVERSE : FOR I = 
1 TO 6: PRINT B$(T);: NEXT : NOR 
MAL : GQTQ 1530 

IF A$ < > CHR$ (12) THEN 1370 
: REM Ctrl-L donner une lettre 

HTAB H% + 1: PRINT LEFT? (C$, 6 
);:I = 1 * INT ( RND (1) * 6): 
HTAB H% + I: PRINT A$(I);: GOTO 
1530 

IF A$ < > CHR$ (20) THEN 1050 

: REM Ctrl-T test 

FOR I = 2 TO 6: IF T$(I) < > " 
. " THEN IF T$(I) < > A$(I) THE 
N A$ = "FAUX": GOTO 1400 
NEXT :A$ - "EXACT" 
HTAB H% + 2; PRINT LEFT$ (C$,6 
) ; : HTAB H% + 1 : INVERSE : PRINT 
A§; : NORMAL : GOTO 1530 
IF I > 6 THEN 1430 
IF A$ < > "." AND AS < > CHR 
$ (95) THEN 1050: REM . ou Del-3 
2 

IF I < 1% THEN A$ = n .":T$(I) - 

":T =1+1: GOTO 1450 
GOTO 1050 

PRINT A$; : GOTO 1050 
rem resultat 

1% = 0: FOR I = 1 TO 6: IF A$(I 
) = B$(I) THEN 1% = 1% + 2 

NEXT : VTAB V% : HTAB H% + 8 : PR 
INT 1%: IF 1% — 6 THEN 1560 

V% - V* + 2: IF V* < 23 THEN 10 
30 

11% = //•* * 10: IF H% < 32 THEN 1 
020 

VTAB 24: HTAB 1: INVERSE : PRIN 
T "*";: FOR I = 1 TO 6: PRINT A$ 
(I);: NEXT : PRINT NORMAL 
: GOTO 1600 

VTAB 24: HTAB 1: INVERSE : PRIN 
T "*GAGNE*";: NORMAL 
PRINT " un autre mot ? (O/N) 



POKE 49168,0: GET A$ 



IF (&$ = "O") OR (A$ = "O") THE 
N PRINT A$; : GOTO 510 
1630 IF (A$ = "N") OR (A$ = "n") THE 

N PRINT A$; : GOTO 2000 
1640 GOTO 1610 
2000 REM fin du ieu 

2010 PRINT D$; "LOCK";E$: POKE 34,0: 
HOME 

PRINT D$;"RUN SIX LETTRE S " 



?020 



EST A- ABJECT- 



-OFFSXT- 

-CONDOR- 
-ISTHME- 



^ F W — — 

-OLIEIIE- 
-GRTSOU- 



.IWGE^I- 
-CHR0NO- 
-PATHOS- 
-LEADER- 
-PROFIL- 
-OUINZE 



-niFFU5-V- 
-MOELLE-1 
-DTURNE-H 
-UTERUS-I 
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Alexandre Avrane 



M % roDOS est disponible 
depuis seulement deux 
S ans, ct pourtant, on ne 
denomhre pas moins 
d'une demi-douzaine de versions 
differentes. Cependant, la lecture 
des manuels fournis par Apple ne 
donne pas dedications sur les 
differences entre ces diverses 
versions. Tout au plus peut-on 
sup poser qu'il s'agit 
d'ameliorations sur des points de 
detail, des mises I niveau de 
quelques fonctions annoncees 
dans la documentation, ou de 
corrections de quelques bugs. . . 




Apple assure (theoriquement) la 
compatibilit6 d'un programme 
tournant sous une version 
anterieure de ProDOS. 
Cependant, il n'est pas inutile de 
connaitre exactement les caracte- 
ristiques de la version que Ton 
utilise, ne serait-ce que pour 
utiliser pleinement les perfor- 
mances du systeme. 

II faut egalement distinguer entre 
les versions du noyau (kernel) de 
ProDOS (fichier ProDOS d'une 
disquette) et de I'interpreteur 
BASIC.SYSTEM. 

La version du ProDOS Kernel 
s'affiche en general pendant le 
boot du systeme. En revanche, 
celle du BASIC.SYSTEM est 
plus difficile & evaluer. Pour 



l'obtenir il faut I'executer sans 
aucun fichier "STARTUP 1 sur la 
disquette. De plus, deux octets 
precisent ces numeros ; 
KVERSION en $BFFF pour le 
noyau, IVERSION en $BFFD 
pour 1 'interprctcur. 

Les versions que j'ai pu recenser 
sont : 



Dale Octet identificateur 



ProDOS : 








B.4 


04/02/83 


Kversion* 


O 


1.0 


01/07/83 


K. version* 





1.0.1 


01/(11/84 


Kversion- 





1.0.2 


15/02/84 


Kvcrsion- 





L1 


17/08/84 


Kversion» 


1 


1,1.1 


18/09/84 


Kvcrsion^ 


1 


Basic.System : 






1.0 


15/11/83 


I version » 





11 


IR/n^/84 


Iversion= 


1 



La version B.4 de ProDOS n'etait 
qu'une version devaluation. 
D'autre part, nous ne nous 
occupons pas ici des autres 
interpreteurs systeme fournis par 
Apple, tels que FILER, 
CONVERT, EDASM, etc. 

Commandes sous 
Applesoft 

• Les instructions MON et 
NOMON, issues du DOS 3.3, 
etaient autorisees (pour assurer la 
compatibilite DOS 3.3) mais 
neanmoins ignorccs. Depuis la 
version 1.1.1, la commande 
MON engendre bizarrement un 
SYNTAX ERROR. 

■ La commande FRE est enfin 
apparue avec la 1.1.1 ; pour 
rappcl, elle nettoie la memoire 
vive beaucoup plus rapidement 
que son homologue de 
rApplesoft. 



• Une nouvelle commande, 
BYE, ddconnecte le 
BASIC.SYSTEM (version 1.1) et 
permet d'enchainer vers un autre 
intcrpreteur (par exemple FILER 
ou CONVERT). 

• Les commandes CAT et 
CATALOG ont ete partiellement 
francisees (patch par Apple 
Seedrin ?) et fournissent la 

mention "SANS DATE" au lieu 
de "NO DATE" lors de l'affichage 
des catalogues. En revanche, les 
mentions "BLOCKS FREE" et 
"BLOCKS USED" sont toujours 
donnees en anglais... J'ai 
decouvert egalement (ce n'etait 
pas indique dans le manuel) que 
Ctrl-C permet d'arreter l'affichage 
d'un catalogue. 

• La commande VERIFY qui, k 
la difference du DOS 3.3, se 
contente de verifier l'existence 
d'un fichier, donne le copyright 
d'Apple lorsqu'elle est appelee 
sans paiametres. 

• Les param&lres "@ H (numero 
de ligne Applesoft) et "V" 
(numero de volume, ignores mais 
neanmoins autorises pour la 
compatibilite DOS 3.3) posent 
probleme lorsqu'ils sont utilises 
simultanement. Editez le 
programme suivant: 

10 PRINT "10" 

20 FEINT "20" 

30 PRINT "30" 
et sauvez-le sous le norn BUG1. 
Maintenant tapez la commande ; 

RUN BUG1, &20, V30 

et l'ex^cution commence £ la ligne 
30 au lieu de la ligne 20. II 
faudrait taper : 

RUN BUG1,V30, 020 

Ce bug, heureusement sans grand 
danger, n'est toujours pas 
corrige. 
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• Un bug ephem&re est apparu 
avec la version 1.0.2 de ProDOS 
lors de l'utilisation dc la 
commande CHAIN. Dans un cas 
trfcs particulier (une fois sur 256 
en moyenne), les variables etaient 
mal transmises entre deux 
programmes Applesoft. Evitez 
done d'utiliserla version 1.0.2. si 
vous appelez CHAIN. 



Gestion de la 
memoire vive 

Hormis la commande FRE vue 
precedemment, les instructions 
HGR et HGR2 de l'Applesoft 
doivent entraincr, lors dc lcur 
execution sous Basic. System, le 
transfert en memoire haute de la 
partie du programme Applesoft 
qui serait ecrasee par rmilisaiion 
de la page graphique 
haute-resolution. L'instruction 
TEXT doit transferer le 
programme a son adxesse initiale. 
Ceci n'est encore que theorique 
dans le manuel Apple, car aucune 
des versions de Basic.System ne 
supporte ccttc possibilite. 

• Les vecteurs de la page 3 
($3D0-$3FF) sont differemment 
initialises selon les versions de 
ProDOS : 

S3D0- JMP SBE00 dimarrage a chaud de 
BASI C. SYSTEM 

$3D3- JMP SRF00 idem pour compati- 
bility avec DOS 3.3 

53 D 6 a S3- EC octets riservls pour 
les inlerpriteurs 
tournant s/s ProDOS 

$3 E D - DA Sxxxx adresse de transfert 
avec $C3I4 (Apple 
He el lie settlement) 

$3EF- JMP SFA59 gestion du BRK du 
6502/65C02 

$3F2- DA SFF59 ProDOS 1 .0 nc girt 
pas U RESET et 

renvoie au moniteur 
ou DA SBE00 ProDOS 1 1 ricupire 
le RESET et fait un 

dimarrage a chaud 

$3F4- DFB $5A octet de controle du 
RESET (ProDOS 1.0) 
ou DFB SIB idem (ProDOS J.I) 
$3F5- JMP SFF59 ProDOS 1 .0 ne gire 
pas l'instruction & 
ou JMP SBE03 ProDOS 1.1 envoie 

& vers le point 

d'entrie externe 

$3F8- JMP SBE0O vers ProDOS 



S3FR-IMP SFF59 vers le dimarrage a 
fro'td du moniteur si 
interruption NMI 

$3FE DA SBFED gestion des inter- 
ruptions IRQ par 
ProDOS 



Pages globales de 
ProDOS 

Les routines GETBUFR et 
FREEBUFR, dont les points 
d'entree respectifs sont $BHF5 et 
$BEF8 et qui permettent d'allouer 
et liberer de l'espace memoire 
entre ProDOS et ses buffers (par 
exemple pour un programme en 
assembleur), sont implementees 
depuis ProDOS 1.1.1 ; il n'est 
done plus necessaire de les 
simuler (com me dans la routine 
CMDLOAD de Pom's 20). 




Pour verifier leur existence, 
passez sous le moniteur et tapez 
BEF5L. Si vous obtcnez : 

$BEF5- SEC 
RTS 
NOP 

$BEF8- SEC 
RTS 
NOP 

alors ces deux routines ne sont 
pas implantees. 

Gestion des 
interruptions 

Les interruptions masquables 
(IRQ) etaient mal gerees avant 
ProDOS 1.1.1 ; il reste n<5an- 
moins un bug avec cette nou- 
velle version, car le MLI de 
ProDOS n'est pas reentrant : si 
une interruption intervient alors 
qu'un programme principal a 
appele le MLI pour executer une 
commande, et que la routine qui 



gere cette interruption appelle 
Igalement le MLI, alors certains 
octets de donnees geres par le 
MLI auront pu etre ecrases 
lorsque le programme principal 
reprendra le controle. II est 
possible de regler cette situation 
conflictuelle, esperons neanmoins 
qu'une version future de ProDOS 
eliminera ce bug. 

En aparte, il faut signaler que les 
interruptions (causees par 
exemple par une souris) sont xrbs 
mal gerees sur un //e lorsque la 
carte 80 colortnes est active. 
Le kit de mise k niveau remedie & 
ce probtenie (Lechniquement la 
valeur de l'accumulateur est 
d&ormais stock^e sur la pile au 
lieu d'etre placee a l'adresse $45). 

Lecture du 
catalogue 

Une des contraintes que nous 
infligaient le DOS 3.3 etait la 
difficulte & acc&ier au catalogue 
d'une disquette. Le Basic- 
-System, pour sa part, permet de 
lire un catalogue sans avoir a 
manier les PEEK, POKE et autres 
CALL. Le petit programme 
ci-dessous permet d'obtenir un 
tableau A$ oil chaque variable est 
formatee comme une ligne 
affichee par la commande 
CATALOG sur le prefixe 
courant : 



100 REM Lecturel 
110 D$ = CHR$(4) 
120 PRINT D$ "PREFIX" : INP 

UT P$ i RF.M ohtient 7e 

pr&fixe 
130 DIM A$(200) ; REM prev 

oyons 200 fichiers 
140 PRINT D$"OPEN"P$", TDIR 

" : REM on ouvre le di 

rectory 
150 PRINT D$"READ"P$ 
160 ONERR GOTO 200 : REM o 

n 3 'arrctera en END OF 

DATA 

170 FOR I = TO 200 

180 INPUT A$ (I) : REM lit 

une llgne 
190 NEXT 

200 PRINT D$"CLOSE"P$ 
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Consequence logique, on peut 
obtenir dans les variables Nl ct 
N2 le nombre de blocs 
disponibles et occupes sur un 
volume par le programme 
suivant : 

100 REM Lecture2 
110 D$ = CHR$(4) 
120 PRINT D$ "PREFIX" IMP 
UT P$ 

130 PRINT D$"OPEN"P$", TDIR 
n 

140 PRINT D$"READ"P$ 

150 FOR I = TO 2 STEP 
; REM boucle i vide 

160 INPUT A$ r REM lit une 
llgne 

170 1=1+ (NOT LEN (A$) ) 

: REM on attend la 2e 
llgne vide 
180 NEXT 

190 INPUT A$ i REM cette 1 

igne contient les vale 

urs recherchGes 
200 PRINT D$"CLOSE"P$ 
210 DEF FN N (X) = VAL (MI 

D$ (A$, X, 5)) 
220 Nl = FN N (16) I REM e 

xtrait le nombre de bl 

ocs 1 i bres 
230 N2 ■ FN N (37) : REM e 

xtrait le nombre de bl 

ocs occupes 

Helas, tout marche correctemenl 
tant que Ton accede & un disque 
physique. Mais si on veut 
observer le disque virtucl installe 




par ProDOS sur les Apple de 
128K (prefixe /RAM), lc 
Basic. System arrete alors la 
lecture sur le dernier fichier : la 
derniere ligne du catalogue n'est 
done plus accessible et il est 
necessaire de lire directement la 
VTOC du disque virtuel pour en 
extraire les valeurs d'occupation. 



Compilation des 

programmes 

Applesoft 

II s'agit d'une petite digression 
puisqu'aucun compilateur de 
programmes Applesoft n'est 
officiel lenient supporte par Apple. 
En effet, leur utilisation pose 
quelques problemes sous 
ProDOS : 

• Celui-ci ignore les commandes 
ProDOS qui ont pu etre 
compiles (un PRINT 
CHR$(4); "CATALOG" 
affiche le mot "CATALOG" & 
l'ecran). 

• Par ailleurs, si on lance 
l'execution par un BRUN du 
module objet, ProDOS est 
deconnecte apr£s l'appel ; il est 

done preferable de faire un 
DLOAD suivi dun CALL. 

• Enfin, les memes problemes 
existent indifferemment avec 



les compilateurs l Tasc' ou 
'Expediter'. Un lecteur 
connait-il les solutions ? 

Trois remarques en guise de 
conclusion : 

• La liste des bugs releves 
ci-dessus ne se pretend pas 
exhaustive. lis ne sont, de 
plus, gu&re dangereux (pas de 
comparaison avec le celebre 
bug de l'APPEND du DOS 3.3 
qui vous detruisait un fichier 
sans mSme vous en avertir !). 

• ProDOS est un excellent 
systSme d'exploitation, compte 
tenu des contraintes techniques 
qui ont preside ik sa con- 
ception ; il est desormais le 
systfcmc officiel de l'Apple II : 
ProFile ou le nouvel UnoDisk, 
par exemple, ne peuvent etre 
utilises sous DOS 3.3. 




Il est preferable de toujours 
utiliser la derni&re version 
disponible de ProDOS car, 
d'une part les bugs s'y font 
plus rares et, d'autrc part des 
commandes nouvelles ou 
ameliorees peuvent y Strc 
implantees. 



(7 



is 



Jacques Supernant Apple ][+, //c, /lc 

Ce moniteur autorise un controle de l'execution des 
routines en langage machine 



Un mode Trace et Pas a Pas tres evolues et selectifs sont compl6t6s 
par un acces direct aux registres du 6502 (ou 65C02). 



> 



La gestion des fenetres d'6cran simplifie le mode trace. 
Une routine permet la recherche de suites d'octets. 



Un mini-assembleur tits souplc fait partie de Max. 
Une ligne de commande peut devenir une boucle avec l'ordre J UMP 




Les fichiers 
source sont sur 
la disquette. 

Disquette et 
documentation : 
150,00 F TTC 
franco . Bon de 
commande 
page74. 
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Un 'Print Using' en 
assembleur 



Patrice Neveu 



a tache de ce programme 
est de combler une 
lacune de l 1 Applesoft, a 
savoir 1'absence de Print 
Using. II peut etre en effet 
necessaire voire indispensable 
d'aligner des nombres de sorte 
que les chiffres des unites, 
dizaines etc., soient les uns 
au-dessous des autres. Un article 
de Pom's ecrit par Jean-Francois 
Duvivier nous avait dejil donne 
une solution grace a une routine 
BASIC ; je vous propose 
aujourdTmi une routine similaire 
en langage machine. Celle-ci est 
plus rapide, moins encombrante, 
et relogeable dans n'importe 
quelle zone de memoire utilisable. 

Utilisation du 
programme 

Son utilisation est simple. II suffit 
de mettre le masque voulu dans la 
variable M$, dc ranger le reel a 
afficher dans la variable X, puis 
enfin de faire Y = USR(X). Cette 
derniere instruction a pour effet de 
passer X du format compacte en 
format TAG 1 (voir pour cela le 
Pom's numero 12). 

Le masque suit les memes regies 
que dans l'anicle du Pom's 4 a 
quelques differences pres: 11 peut 



etre compose de '#', de V, et 
d'espaces (au debut du masque 
seulement), mais pas de ' A ' car la 
notation scientifique n'est plus 
disponible. 

• It definit un chiffre, et donne 
1'emplacement de la virgule. 

• Aucun rctour S la ligne ne se 
produit apres un affichage. 

• Les zeros cn tete sont 
remplaces par des espaces. 

• Des zeros sont ajoutes & la fin 
pour completer le masque si 
besoin est. 

• Si le nombre de decimales du 
reel depasse celui du masque, 
le nornbre est arrondi par 
defaut. 

• Lorsqu'un signe negatif est 
utilise, il prend une position #. 

• Si le masque ne rdpond pas la 
syntaxe precedement definic ou 
si le nombre ne peut rentrer 
dedans, le message 4 MASK 
ERROR' suivi du bip habituel, 
est genere. La main est alors 
rendue au niveau de 
l'Applesoft. 

Le programme PRINT-USING 
DEMO illustre tout ceci. 



Remarques 

Dans sa version d'origine, le 
programme renvoie dans la 



variable Y le nombre affiche. 
Pour supprimer cela et done 
gagner quelques fractions de 
secondes, mettre un RTS 
($60=96) en $8126 (33064). 
Une autre petite modification peut 
etre operee : si on nc desire pas 
que le message d'erreur propre au 
programme s'affiche, il faul 
modifier les lignes 121,122,123 
de cette facon : 

121 ERR LDX MSKLEN RejnpUr le 

masque d'espaces 

122 JSR 5F94A PRNBL2affiche 

X espaces 

123 RTS 

Ce qui se traduit depuis le 
moniteux par : 

806E : A6 D7 20 4A F9 60 
Et en basic, il faudra inserer la 
ligne : 

175 POKE 32878,166 i POKE 32879, 

215 : POKE 32080,32 : POKE 3 
2881,74 : POKE 32882,249 : P 
OKE 32883, 96 

D'autre part, si Ton frappe 
A=USR(X) f le resultat sera dans 
A, mais aussi dans Y. La variable 
X reste inchangee. 

Le deroulement du programme est 
explique plus en detail sur le 
listing. 



Recapitulation 
PRINTUS1NG 

6000- A» 00 5 CF 9S CF 85 ID 

8008- 20 34 ED 94 07 95 Of AO 

$010- 00 Bl OS F0 10 C9 2E DO 

BOia OS 94 CF 99 00 03 CB CO 

BOZO- 10 DO EE AS OO 99 OO 03 

B02B- B4 EB AS 69 85 0B AS 6A 

80 JO- OH AO 00 Bl OB C9 40 

8038- DO 18 CB Bl 08 C9 80 DO 

B0<0' 11 C8 Bl 08 BS D7 CB Bl 

8048- 08 85 18 CB 31 08 85 19 

8050- DO 35 AS 08 18 69 07 85 

8058- 08 90 D 7 E6 09 A5 6C C5 

8060- 09 B0 0B DO 06 AS 6B CS 

8068- 08 B0 03 IB 90 C4 AO 80 



8070- A9 7B SO 3A OB 20 3A FF 

8078- 4C DO 03 8D CD CI 03 CB 

8060- AO C5 D2 D2 CF D2 00 A4 

SC88- 07 88 Bl 18 C9 20 DO 04 

9090- E6 ID DO OA C9 33 FO 06 

9099- C9 3E DO 03 B4 CE 80 10 

BOAO- E9 AD 00 03 C9 2E FO 09 

BOAB AS CF DO 04 AS EB BS CF 

B0BO- AS CE DO 04 AS D7 BS CE 

8038- AS CE 38 SS ID CS OF 90 

80C0- AD A 4 CE A9 20 99 31 03 

B0C8- 88 10 FA A5 CF DO OB A4 

80 DO- CE 88 A9 30 99 31 03 AO 

80D8- IF A9 30 99 31 03 86 C4 

80E0- CE DO F8 A4 07 A9 OO 99 

80E8- 31 03 AS CF FO 10 A6 CE 

80F0- A4 CF 88 CA B9 00 03 9D 



80F8- 32 03 CA 88 10 F6 A6 CE 
3100- A4 CF A9 2E 90 31 03 B9 
8108- 00 03 FO OD 90 31 03 E8 
8110- CB C4 Cfl BO 04 E4 D7 90 
B11B- EE AO OO B9 31 03 09 BO 
9120- 20 ED FD C9 C4 D? 90 F3 
B12B AS B9 BS OB AS SA BS 09 
8130 AO 00 Bl OB C9 SS DO OS 
B13B- CB Bl OB F0 IB A3 OB IB 
8140- 69 07 BS OB 90 EA E6 09 
814B- A3 6C CS 09 BO 3/ DO EO 
8150- AS 6B C5 08 B0 2F 90 D8 
8158- CB 98 18 65 08 85 08 90 
8160- 02 E6 09 A5 BB 85 FE AS 
B16B- B9 BS FF A9 03 85 B9 A9 
8170- 30 85 BB 20 4A EC A4 09 
8178- A6 08 20 2B EB A5 FE 85 
a I B0- BB AS FF 8S R9 60 
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Programme PRINTUSING.S 

(Assembleur Big Mac) 



i 

i 
j 

i " 

3 ' • 

6 »*(C) »0 6/06/85' "PATRICE'NEW* 

7 



rXINTUSING 1.1 



9 STROVT 

10 MOVMF 

11 FIN 

12 FOOT 

13 COOT 

14 BELL 
IS 

16 CHAINS 

17 RESULT 



19 

20 ADR 

21 V Alt TAD 

22 MASKADR 

23 SPACES 
2 4 LOttEtf 
23 ARYTAB 

26 TXTPTR 



SDB3A 
SEB2B 
SEC4A 
SED34 
SFDED 
SFF3A 

S0300 
$0331 



SOS 
$08 
31 8 
$10 
$69 
$6B 



1 MSKPOINT 
1 CHNPOINT 
1 MASKLEN 
1 CHAINLEN 
TXTPTR2 



27 , 

28 l 

29 i 

30 i 
31 
32 
33 

34 . 

35 * INITIALISE 

36 * 



S3$ 

SCE 

scr 

$07 
$EB 
SFE 



30 



lda f$oo 
STA CHNPOINT 
STA MSKTOINT 
STA SPACES 



A3 

44 ' CONVERTER FAC F.ti CHAINE DE 
■43 ' CARACTERE EN $300 

46 *«— — 

47 
4B 
49 
50 
SI 
52 

53 HANT 
54 
55 
56 
57 

58 HANTI 
59 
€0 
SI 



S3 

€3 MANTIS 



6S 
CO 
67 



JSR FOOT 
STY ADR*1 
STA ADR 

LDY 00 
IDA (ADF) , y 
BEG MANTIS 
CMP §'. 
BNE HANTI 
srr CHNPOINT 
STA CHAINS. Y 
THY 

CPY fSlQ 
BNE HANT 
IDA tOO 
STA CHAINS, y 
STY CHAINLEN 



IDA LOMEN 

STA VARTAB 

IDA LOME/HI 

STA VARTAB*! 



77 
78 

79 

BO 
91 
82 
S3 
04 

95 ■ MS TROUVE. 
96 
97 

M 



LDY tO 

LDA (VARTAB). Y 

CMP fM 

BNE SXTVAR 
INY 

LDA (VARTAB) . Y 

CMP t$80 

BNE NXTVAR 



SORTIE DE CHAINE DE CARACTERES 
COMPACTS FAC ET IE MET EN <Y,X) 
SAISI ON ttOMBRE PAR CBRGET 7 FAC 
FAC -> CHAINE DE CARACTERES 
SORTIE DE CARACTERE 
BIP SONORE 

PMOT-TAT DP FOOT 

NOMBRE PASSE PAR LE MASQUE. A AT 
F1CHEP 

RE TOO P A L ■APPLESOFT 



ADRESSE DE MS 

NOMBRE D-E SPACES A VAN 7 LE MASQUE 
DEBUT OES VARIABLES SIMPLES 
UEBUT TABLEAUX VARIABLES, FIN VAR 
.SIMP. 

ADRESSE CARACTERE OBTENO PAR CUR 
GET 

POSITION DU POINT DANS LE MASQUE 
POSITION DO POINT DANS LA CHAINE 
LONGUEUR DO MASQUE 
LONGUEUR DE LA CHAINS 
SAUVE GARDE DE TXTPTR 



FAIT LA CONVERSION 

SAUVE L 'AD RES DU RESULT AT OBTENV 



ET TRANSFERS LE RESULT AT EN $300 
POUR UTILISATION ULTERIEURE 
C'EST FINI ? 

SI C'EST ON POINT, ALORS 1L FAUT 
EN SAUVER LA POSITION... 
VOI LA OUT EST FAIT. 

PASSE AV PROCBATN CARACTERE 
ON EN TRANSFERS 16 MAXIMUM 



MARQUE FIN DE CHAINS PAR UN $00 
CONSERVE LONGUEUR DE LA CHAINS. 



VA CHERCHER LE MASQUE 5TQCKE 

68 ' DANS LA VARIABLE MS. 

69 •— 

70 

71 

n 

73 
74 

75 

76 CHRCH 



PARTIR DU DEBUT DES VARIABLES 



C'EST MS ? 



NON ALORS ON PASSE A P ROC HA INE 



89 


STA MASKLEN 


90 


INY 


91 


LDA (VARTAB) , Y 


92 


STA MASKADR 


01 


mv 


M 


LDA (VARTAB). Y 


05 


STA MASKADR* 1 


M 


BNE VRFYMSK 


97 * 




98 - MS PAS 


TROUVE, SVZVANT. 


99 




ZOO NXTVAR 


LDA VARTAB 


101 


etc 


102 


ADC f7 


103 


STA VARTAB 


104 


BCC CUHL'B 


105 


INC' VARTAB*! 


tUb 




107 


LDA ARYTABtl 


108 


CMP VARTAB* 1 


109 


BCS ERR 


110 


BNE CONTNXT 


111 


LDA ARYTAB 


U2 


CMP VARTAB 


113 


BCS ERR 


114 




115 CONTNXT 


etc 


116 


BCC CBRCH 


117 





C'EST LA ItQNGUEUR DE LA CHAINE 



F.T SDN iOTCCW F.N MF.NOIRF 



TEPMSNE. IL FAUT VERIFIER LA SYN 
TAXE DE CE MASQUE 



POOR PASSER A LA PROCHAINE VARIA 
OLE, IL FAUT ALLEP LIRE 
7 OCTETS PLUS ' LOIN 



BOOT DE LA ZONE RESERVES AUX 
VARIABLES SIMPLES ? SI 001, ERRE 
OR! SINON, ON PASSE A LA PROCHAI 
NE VARIABLE 



116 ' ERREUR. LE MASQUE N 'EXISTS PAS 



119 • 

120 

121 ERR 

122 
123 
124 

125 



126 
121 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 



00 N'EST PAS CONVENABLS 

LDY t>BRRHSC 

W A t<ERRMSa 
JSR S TROUT 
JSR BELL 
JMP BASTC 



ON CHARGE L' ADRESSE DU MESSAGE D 
'ERREUR 

PUIS ON SAUTE L 'AFFICHER 
AVEC BIP L 'IGNOBLE 

ET ON RENO LA MAIN AU PROGRAMMEU 
R DECU 



HEX 8D 

ASC "MASK ERROR" 
HEX 00 



POUR SAUTER ONE LIGNE 



■ VERIFIE LA FORME DO MASQUE 



LDY MASKLEN 
DEI 

LDA /MASKADR) , Y 
CMP f 

ONE VRFYMSK? 

TNT SPATES 

bnp Hxreyw 

CMP ft 

DEO NXTC/IR 
CMP f. 
BNE ERR 



PARTIR DE LA FIN 

-1 CAR LA POSITION JtEBO COMPTK 

PRENDRE UN CARACTERE Ml MASQUE 

C'EST UN ESPACE ? 



C'EST ON t ? 



DEY 

BPL VRFYMSK1 



141 NX3VHH 
149 

150 * 

151 • ATTENTION SI < NOMBRE < 1 

152 * SI ON A UN ENTIEB, ALORS: 

153 » CBNPOINT = CHAINLEN 

154 * 

155 



PEUT-ETRE UN . ? 

RIEN DE TOUT CELA: LANCE L 'INSUS, 
IE 

LA POSITION UU fOINT DANS LE MAS 
QUE 

PROCHAIN CARACTERE 
ET YA JVSQU'AV BOUT ! 



INY 

LUA I VARTAB), r 



156 
157 

J 58 
159 



161 
162 
163 
164 
165 
166 
167 
168 

169 MSKINT 

170 

171 

172 

173 

274 » 

175 



LDA CHAINE 
CMP f. 



RFQ MSKTHT 
LDA CHNPOINT 



ONE HSKINT 



LDA CHAINLEN 
STA CHNPOINT 



SI LE PREMIER CARACTERE EST UN . 
ALORS ON WE PSUT PAS AVOIR ON FN 

TTFR. . . 

LA POSITION DU POINT INDIQUE CI 
ON A UN 

ENTIER OU NON. {0-ENTIER, AUTRE— 
REEL) 



■ SI LE MASK EST ENTIER ALORS : 
• MSKPOINT - MASKLEN 



LDA MSKPOINT 

BNE VRFTAILLE 

LDA MASKLEN 

STA MSKPOINT 



• CSNPOINT -< MSKPOTNT-S'PACFS ? 



OPERATION IOENTIQUE SUR LE HASQ 
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176 » 

177 

J 78 VRFTAILLE LDA HSKPOIN? 
179 SEC 

190 SBC SPKES 

191 CMP CHNPOINT 

192 BCC ERR 



193 
}B4 

IBS 

\rtn 

1B7 
IBS 

1>C 
191 
1M 
193 
194 
195 
196 
197 



CEC1 POUR SAVOIR £1 LA PARTIE EN 
HERE DU SOMBRE PEUT ENTRER COHP 
LETEKE NT DASS LE MASQUE. 

SI C'EST TROP ETROIT, IL FAUT LE 
DIRE 



• ATTENTION SI T NCMBR-F < I 

» RARTIR AVANT l£ PO TNT: ESPACF.S 



LDY MSMPOINT 
LDA I' 
CLRESULT STA RESULT, Y 
DEY 

BPL CLRESULT 

LDA CHNPOINT 
BSE CLRESULT 1 
LUI HSAPOINT 



ON MET DES E SPACES AVANT LE POIN 
T POUR CUE CA COST JOLJ SI LE HA 
SOUE EXT TROP CFtAND COTE ENTIER 



SI LE FREMEER CARACTERE 00 SO HHP: 
E EST UN POINT, ALORS CKNPOINT-0 
ET IL FAUT METTRE UN ZERO AVANT 

LA VIRUULE 



193 
199 
200 



DEY 

LDA 9'0 

STA RESULT, Y 



201 CLRESVLT1 EQO » 
202 

203 ' 

204 * PARTIE APRES LE POINT: ZEROS 

205 ' 

206 

207 LDY SS1F 

20$ LDA i'O 

209 ZERO STA RESULT. Y 



POOR QUE CA SOIT ENCORE PLCS JOL 
1, ON MET DES ZERO A LA PAJiTIE D 
EC I HALE AU CAS C*U LE MASOOE SERA 
IT TROP GRAND 



210 
71 I 
212 
213 
214 
SIS 

21 e 

217 
218 
J IV 
J*Q 
271 
222 
223 
IJA 
225 
226 
227 

22 S 
229 
230 



231 
737 
733 
334 

73 B FORMAT 

236 

237 

238 

239 

240 

241 t'UHM 

242 

243 

244 

245 

246 FORMA 
247 



DRY 

CPY HSKPQINT 
BNE ZERO 



$00 EN FIN DE NOMDRE MASQUE 



LDY HASRLEN 
LUA tSOO 

STA RESULT, Y 



ATTENTION SI < SOMBRE < 1 
COUPE LA CHAISE SELON LE MASQUE 
ET RANGE-LA DANS RESULT t$33Q) 



243 

249 

7 so 
75; 



LDA CHNPOINT 
BED FORM 
LDX HSKPOINT 

LDY CHNPOINT 

DEY 

DFX 

LDA CHAINS, Y 
STA RESULT, X 

DEX 

DEY 

BPL FORMAT 

LDX HSRPOINT 
UII CtiNPUlNl 
LDA f. 
STA RESULT, X 

LDA CHAINE, Y 
BED FORMEND 

STA RESULT, X 

INX 
INY 

CPY CMAINLEN 



BCS FORMEND 
CPY MASKLEN 
BCC FORMA 



757 
75 3 
3S4 
255 

256 FORMEND EOU • 
257 

253 ' 

259 ' ATFlCHk. U MESULTAT 

260 * 

261 

262 
263 



< SOMBRE < 1 ? 



IL FAUT SE POSITIONNER JUSTE AVA 
NT U . 



DECALI LA FAPTIC tNTTPVB PN PART 
ANT DV POINT 



FOUR TOUS LES CHIFFRES 
ON INSCRIT LE POINT 



ON EST A'J BOUT DE LA PARTIE DECS 
MALE 7 

HON ALORS CONTINUE DE DECALEP A 
PART LB 

DU POINT ET VERS LA DROITE 

IL RESTE DES CHIFFRES DANS LA CM 
AINE ? 

ST mi, Rf.STF.-T- 11. DE LA PLACE D 

ANS LE MASQUE 7 



264 

26$ 
266 
267 
268 
269 

270 ' 

771 " NF.T A 

375 • 

273 
274 
275 

276 
277 
279 

279 CRRCHY 

290 
281 
282 
283 
284 
285 
286 

287 - Y PAS 
288 

289 NXTY 

290 

291 

292 

293 

294 

295 

296 

297 

798 

399 

300 

301 

302 

303 

304 

305 YTROOVE 

306 

J07 

JOB 

309 

310 

311 

312 

313 TRANSF 

314 

31 S 

316 

317 

3l 8 

319 

320 

321 
377 
323 

324 

325 
726 
327 
328 
329 
330 
331 

332 RE TOUR 



ORA ISBO 

JSP COOT 
TNY 

CPY NASKLEN 
BCC PRNTUSING 



BIT S-J POUR AVOIR LE MODE VIDEO 
NORMAL 



.JOUR IA VARTARl.F- Y^DSRIX) 



LDA LOMEM 
STA VARTAB 

LDA LOMEM i 2 
STA VARTAB' 1 

LDY 40 

WA (VARTAB J , Y 
CMP 9 *1 
ONE NXTY 
INY 

LDA (VARTAB J . Y 
BEQ YTROUVE 

TROOVE, SUIVANT. . . 

LDA VARTAB 
CLC 
ADC §7 
STA VARTAB 
BCC CBRCHY 
INC VARTAB*! 



LDA 
CMP 
BCS 
BNE 
LDA 
CMP 
BCS 
BCC 



AR YTAB * 1 
l/A R TAR* 1 
PS TOUR 
CHRCHY 
ARYTAB 
VARTAB 
RE TOUR 
CBRCHY 



INY 
TTA 

CLC 

ADC VARTAB 
STA VARTAB 
BCC TRANSF 
INC VARTAB* 1 

WA TXTPTR 

STA TXTPTR2 

LDA TXTPTR* 1 

STA TXTPTR2*1 

LDA 8>RESULT 

STA TXTPTR* 1 

LDA §<RESULT-1 

STA TXTPTR 



.FSB FTN 

LDY VARTAB* 1 

LDX VARTAB 

JSR MOYHF 

LDA TXTPTR2 

STA TXTPTR 

LUA TXTPTH2+1 

STA TXTPTR*! 



RTS 



ON RECQMHENCE A CHKRCHEP. VNE VAR 
SABLE DONC ON FAIT PARE EL OV'AU 
DEDUT. . . 



SHOT <JUf HA1NILNANT L fci'T J 



IL FAUT SAUVER LE TXTPTR ACTUEL 
CAR ON VA AVOIR A S'EN SERVIR PO 
OR RE HETTRE ONE CHAINE DANS FAC 

CETTE CHAINE, C'EST RESULT 
C'EST A DIRE CE 0V2 SERA AFFlCHE 
CAR TXTPTR POINTE SUR LE DERNIER 
CAR AC. UTILISE . PRENDRE DONC LE P 
RECEDBNT. 

BANK? PFSm.T DAN': FAT 

CHARGE L'ADRESSE DE LA VARIABLE 

V 

POUR METTRE FAC DEDANS 

MAINTENAUT QUE C 'EST TERMINE, ON 
REPREND LE TXTPTR D'ORIGINE POUR 
(JUt LE UAS1U Nt St PLANT* PAS 



Programme PRINTUSING DEMO 



FX ItfT USING / DEMONSTRATION 



LDY $500 
PRNTUSING LDA RESULT. Y 



rxurr ims («/ -aujAO pmikivsikg- 
hem excrete la kootzhc 

HIMOT. 3t7C7 

REM riXE IE VtCTCVf OfCJt 

POKE 11.0: POKE 17,13* 

XLM FAS DE VALEOX - XETOUX 

FORE JJOSt.St 

ATM IXIMPLI5 

TEXT I HOME : INY EASE i PXIRT * 
': ROAHAL : VTAB 5 

ruHT • ittt nt.$i limit. tin- 

riAS JOl rHlHI -U 'NASA LKXOA SE :-X~:: CAA LE HASQVLLST TMOf EJXO 
IT /OCA LA /AATXC ETfTlCAE DV K01BRE . *i YTAB § 
r J- I - I TO It i AEAO X : FRim Xi I HTA3 10 
210 Mt - " lllfiY - OSA IX) 

77* us m • in ii- r m dsi m 

210 MS - " ttttlll. lllfiY - USA IX) 

190 HINT ; NEXT 

106 data -10.l.i5A>.5,21.?5H12, A.4S. *5, J?-5. tf#. 75, «, JI.3JIJ, -0.1, 1234 
S.t7l90 



11U 
120 
ISO 
110 
ISO 
HO 
170 
110 



itO 



68 
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Alexandre Duback, Alexandre Avrane 



Atlas de geographic historique de 
la France et de la Gaule, par 

Sufphane Sinclair - SEDES (88, bd. 
St. Germain, 75005 Paris) -260 pages 
- 105 FF. 

L'originalite de cet ouvrage, en dehors 
de son sujet, tient k ce qu'il comporie de 
tres nombreuses cartes realisdes a partir 
du Macintosh et sorties en LaserWriter. 
D&idtSnieui, celle-ci gagne du terrain 
tous les jours ? 



Gerer le developpement de 
l'entreprise (guide Multiplan), par 
W. R. Osgood, D. P. Curtin et F. 
Camelin - Cedic/Nathan - 172 pages - 
240 FF - Traducu'on/Adaptation. 



Controler et optimiser les 
decisions financieres (guide 
Multiplan), par J. Alves, M Selva, B. 
Laur, D. Rigolet et P. Dcrly - 
Cedic/Nathan - 186 pages - 240 FF - 
Traduction/ Adaptation. 

Dans une presentation claire, ces guides 
sont de bons outils de travail. Le premier 
est eri quelque sorte unc check-list pour 
la creation, a 1'aide de Multiplan, d'un 
dossier stir votre enrreprise, en vue 
d'une demande de pret ou d'unc 
operation d'augmentation de capital. Le 
second est specialise* dans la gestion 
financiere. Ces deux livres sont 
int6ressants par leur aspect p€dagogique, 
dans la matiere etudiee comme pour la 
constitution des tableaux. 



Apple, modems et serveurs, par 
Alain Mariatte - Editions du PSI - 220 
pages - 1 30 FF. 

Apres une introduction sur la revolution 
teiematique, cet ouvrage comporte trois 
parties d'importance comparable : la 
tecluiique des transmissions, les r^seaux 
t616matiques et les aspects logiciels. 

Ce livre se lit aisement et comporte de 
nombreux exemples de connexion sur 
divers systcmcs, ainsi que plusieurs 
petits programmes utilitaires. Un bon 
complement du livre de Jacques 
Bessieres, la Tei£informatique 
Personnelle. 



Apple ProDOS ; Advanced 
Features for Programmers 

Gary B. LitUe Prentice-Hall Publishing - 
266 pages - S23.35 (sans disquctte) 

Ce livre s'adresse aux programmeurs 
systeme d6sireux d'implanter leur 
creation dans un environnement 
ProDOS. II suppose done un certain 
nombre d'acquis, en particulier de 
l'assembleur 6502 et du ProDOS 
Technical Reference Manuel (je trouve le 
lecture de ce dernier indispensable mais 
aussi insipide que les brochures IBM. 
Qii est passd le style d'e'eriture 
d'Apple ?) 

II reprend les points fondamentaux des 
protocoles d'interface avec ProDOS : 
appel du MLI, gestion de la carte RAM, 
interpreteurs-systeme, routine d'inter- 
ruptions, modules d'acces a une 
memoire de masse ou une carte horloge, 
etc. 

Moins descriptif que Beneath Apple 
ProDOS, il aborrie surtout les aspects 
pratiques d'utilisation mais se montre, a 
Tusage, beaucoup plus utile. 



Informatisez votre comptabilitS et 
votre gestion, par Bernard Eben - 
Marabout Infyrmatique - 256 pages 
(format livre de poche). 

Cet ouvrage donne un certain nombre de 
conseils sur Tart et la maniere de 
programmer la comptabilite" d'une 
entreprise, avec un petit programme en 
Basic (ou 1'auteur gagnerait a decouvrir 
l'existence de variables induces) et un 
programme dBase II de 18 pages (plus 
interessanp. II aurait etc plus interessant 
de construire le Uvre tout entier autoux de 
la creation d'un programme dc compta 
personnalise en dBase IL 



Macintosh, rami du travail et du 
jeu, par Lon Poole - Editions Cedic 
Nathan - 448 pages - 195 FF 
- Traduction. 

Un bon livre d'introduction au 
Macintosh : une premiere partie generale, 
une seconde partie avec des chapitres sur 
MacWrite, MacPaint et Multiplan, unc 
troisieme partie presentant 24 petites 
applications en 90 pages, et enfin un 
dossier de reference. 



Applications graphiques pour 
Macintosh, par Andreas Pfeiffer - 
Cedic/Nathan 281 pages - 150 FF. 

Six parties : Macintosh et creation 
graphique, Interfaces de digitalisation, 
Dessin de precision et CAO, Logiciels de 
mise en page, Generateurs de 
graphiques, De ['utilisation de belles 
images. 

Livre sorti sur LaserWriter dans une 
presentation bien pensee et agreable. Le 
fond est a la hauteur de la forme. Un 
livre a conseiller a tous ceux que les 
applications graphiques interessent 



Apple ProDOS Disk/File 
Handling de Graham Keeler - 
Prentice-Hall Publishing - 353 pages - 
S 17.95 (sans disquette) 

Livre d'initfation aux techniques de 
manipulation de fichiers sous ProDOS, il 
s'adresse principalement aux debutants 
ou aux uiilisateurs qui ne possedent pas 
les manuels Apple de programmation 
sous ProDOS. 

Les chapitres decrivant les commandes 
dc ProDOS sont completes par une serie 
d'exercices en Basic Applesoft. Puis une 
introduction a la creation d'une base de 
donn^es est esquissee, suivie de 
quelques routines utilitaires. 



Utiliser Multiplan, par Erwin 
Schneider - Editions d'Organisation - 
260 pages - Traduction. 

Heias, encore une traduction effectude 
par quelqu'un qui ne connait pas 
Multiplan ou a bacie son boulot ! Tous 
les exemples soul presented a pariir d'un 
Multiplan en version francaise, avec la 
syntaxe de la version americaine : par 
exemple, les arguments des fonctions 
sont separfis par des virgules, et non des 
points- virgules comme e'est le cas dans 
la version francaise. 

La traduction mise a part, nous 
n'apprecions pas non plus la logique de 
l'ouvrage, qui consiste a presenter les 
liens externes avant meme de montrer 
comment faire une somme... 



Pom's n° 22 



69 



"Ah ! le rcvoila lui". Devinez qui 
nous Tenire au bcrcail sur l'air du 

!iere prodigue ? Eh oui, e'est bien 
ui : Steve Wozruak, le "papa" de 
l'Applc // qui rcvicnt dans lc giron 

d'Apple a Cupertino, en 
commencant par rachctcr la valeur 
dc 5 millions dc dollars d 'actions 
d'Apple. 11 en convoke encore 
d'autrcs pour 15 millions dc 
dollars. Au total, un million 
d'aetinns frappees de la pomme 
pour 20 millions dc dollars. Urte 
re marque au passage : Wozniak 
nc fait pas unc uiauvaisc affaire : 
il en avail vendu 3 millions cn 
fevner pour 70 millions de 
dollars. Un petit travail sur la 

calculatrice du. Macintosh : il 
rachete 20 dollars deg actions 
qu'il avait vendues 23,33 ! 

Pourquoi ce retour 7 Officiel- 
lement, parce qu' "Apple va dans 
le bon sens". II faut dire que 
depuis quclqucs temps, Steve 

Wozmaks'imciessait cnormcmcnt 
aux produits d'Apple. Comme si 
l'Applc // lui manquait. Au point 
de se transformer cn homme 
sandwich. 11 nc se passait pas de 
scmainc, sans qu'on nc voic sa 
photu daus unc publicity pour 
proclamcr, combicn il admirait 
de lout casur, les produits 
d'Applicd Engineering", ou 
s'exclamer que "la serie des 
programmes Mouse {les produits 
dc Version Soft, vendus aux Elats 
Unis par International Solutions) 
est 1'evolution naturelle des 
logiciels pour Apple II, en 
apportani les av an l ages du Mac a 
l'Apple /r. 

En ce mois dc janvier frileux, la 
date inscrite sur l'agenda de tous 
les Applemaniaques e'est celle de 
l'Assemblee des actionnaires qui 
apportcra cornmc chaque annee 
son lot dc nouvcautis. Ccttc 
annce, e'est sur lc Mac nouvcau 
qu'on speculait. 

Un Macintosh plus puissant (1 
Mcgaoclcl dc incinoire en 
standard, extensible jusqu'a 
quatre, une nouvclle ROM dc 
128Ko, integrant davantagc 
delements du systerne contenus 
jusqu'ici sur la disquettc, un 
lecteur de disqucttcs double face 
dc 800Ko, bref, la reponse aux 
souhails de tous les utilisatcurs dc 
Macintosh). A dire vrai, on 
prevoyait meme deux Macintosh, 
l'autre etant encore plus 
rcvolutionnairc : modulairc cn 
trois elements, avec un clavier 
plus complet, un ecran separe, ct 
une unite centrale comportant unc 
sortie pour disques durs au 
standard du marche. 

Les posscsscurs de Macintosh 
d'avant 1986 nc seraient pas 
laisses pour compte, puisqu'nn 
leur pro pose rait une extension de 
memoire a un Mcgaoctct, 
accompagnec d'un lecteur dc 
disquettes double face ct de la 
nouvelle ROM. Les prix seraient 
interessanls, puisque l'cxtcnsion 
de 128Ko a 1 Mega serait 
proposed au mfimc prix que 
l'ancicnnc extension a 512Ko. A 
cc propos, les Macintosh de 
128Ko ne seront yraisem- 
blablement plus fabriqucs. le 



512Ko devenant le bas de gamme 
Macintosh. Cc qui est sur, e'est 

que Ic maltre mot inscrii au 
tronton d'Apple, e'est desormais 
la compatibihic. 

Compatibility sur 
le Macintosh 

Compaubilite interne d'abord : le 
Mac serait capable bient6t 
d'emulcr parfaitemcnt l'Applc //. 
et comme nous 1 'annrsneions dans 
le precedent numero de Pom's, 
l'Apple // rendrait la pareille a son 
cadet. 

Compatibility exteme surtout : les 
Apple iraient en enfer et 
s'inlegrcraicnt dans l'uAivers 
impiioyablc. Lcqucl ? Celui 
d'IBM, bien stir. Tout en 
annoncant unc augmentation de 
son budget de recherches de 50% 
(une maniere de repondre a ceux 
qui, comme l'auteur de ccttc 
rubriquc, doutcnt des capacity's 

d'Apple, privfi dc Steve Jobs, a 
dcvclopper aujourdhui I'orcuna- 
teur a sorrir dans cinq ans), John 

Sculley. le PDG de la firme a 
annonce* en octobre "qu'Apple 
offrirait des produits compatibles 
avec les standards dlBM". 

Traduisons : il ne s'agit pas He 
construire des compatibles IBM 
sous la marque Apple (bien qu'o 
Cupertino, on s'intcrcssc, 
parait-il, enormdment a la secondc 
version, avec disque dur, de Mac 
Charlie, cette extension 
transform ant le Mac en terminal 
compatible IBM, capable d'avaler 
loulcs les disqucttcs du PC, et dc 
metamorphoser un superbe 6cran 
graphique intelligent en engin 
barbare affichant le sinistre A> du 

MS-DOS). II s'agit d'integrer les 
Apple a runivere IBM, devenu 
que ccla plaise ou non eclui dc la 

majoritc dies entreprises d'Outic 
Atlantique et de France. Cette 
integration se rdaliserait dc deux 

f aeons : 

1 ' pax les fielders. Apple ct IBM 
seraient capables de travailler avec 
des programmes diffdrcnts, mais 
dc s'dchanger les donnfes, ce qui 
eviterait des doubles saisics. Ceci 
grace a 1 'adoption par Apple de la 
iumiuc des fichicrs dcvcloppec 
pour UBM et baptisee DCA. 

2" par les reseaux : des Apple 
seraient branches sur les reseaux 
■comportaut des IBM. Pour ccla, 
Apple a annonce son adhesion au 
Standard de reseau en anneau a 
jelon devoile pax IBM en octobre. 
Ce branchement serait aussi 
possible sur les reseaux d'autres 
eonstructcurs. A survcillcr 
particulierement le rescau 
EthcrMac pour Macintosh, qui 
pourrait commu niquer facilcment 
avec le reseau EiherNet developpe 
par le meme constructeur pour les 
PC. 

L'armee 1986 apportera aussi aux 
amateurs d'Apple de bonnes 
nouvelles sous forme de baisses 
dc prix. Cclui dc limprimantc 
LaserWriter avail deja baisse' (sous 
la pression dc la concurrence) dc 
1000 dollars aux Etats Unis a la 
fin 1085 pour passer a 6000 



dollars. Les Apple //c etoienl 
tombes au-dessous dc 10000,00 

Francs des la fin de rannce pour 
unc configuration "ope'ration- 
ncllc". On pouvait meme trouvcr 
pour moins dc 8000.00 Francs 
une configuration comprenant un 
Apple //e, un lecleur el un 
mo nit cur. D est vraiscmblablc que 
ce n'esi qu'un debut. Et que des 
baisses de prix s'appliqueront 
encore a toute la gamme Apple. 
Pour le meme prix, on aura peui 
etre cette annee en plus une 
imprimantc. Qui s'cn plaindraic? 
En attendant, lc panorama des 



materiels ct logiciels lances a la fin 
1985 pour les Apple s'avcre 
particulifcrement riche. Comme 
une maniere de pied de nez aux 
concurrents du style Atari ou 
Amiga qui voudraicnt deja heiitci 
du marc he. 

M6moire : toujours 
plus ! 

U est bien loin le temps oil 16 
Kilo-octets suffisaient a tenir la 
comptabilite dune banque. 

Desormais, les exigences de 
memoire pour les utilisateurs de 
micro- orcUnatcurs sc chiffrcnt cn 

Mcgaoctets. Rcprenons les 
episodes precedents : dans le 
numero 21. Pom's annoncait 1,5 

Mega octets cases sur une carte de 
l'Applc //c. Record battu par 
Applied Engineering ovee 3 
Mcgas poui 1 700 dollars. Qui dit 
mieux ? Cene course a la memoire 
ne se fait pas sans degats. 
Pendant quelques temps, 
l'absence d'Apple avait laisse le 
champ libre a quelques pionniers 
comme Applied Engineering. 
Ceux-ci ont developpi des cartes 
s'installant dans le slot auxiliaire 
de l'Apple lit. Or voici qu'Apple 

a recemment sorti sa carte 
d'expansion. Et que celle-ci 
s'installc dans un des slots 
normaux de l'Apple. 
Consequence : les programmes 
comme AppleWorks oQ Ton a 

install^ un "patch" pour 
reconnaitre la memoire 
supple*mcnlairc des fabricants dc 
cartes nc rceunnaisscnl pas ccllc 
d'Apple. Plus grave : les 
concepteurs dc logiciels icriront 
de pre*fe"rence des programmes 
pour la carte d'Apple, et ceux-ci 
ne pourront utiliser les cartes 
concurrcntes. Si cc malcntendu 
n'est pas r^pare, il risque de faire 
du vilain chez les eonstructcurs 
d'extensions et cartes en tous 
genres qui sont pourtant les plus 



chaleureux supporters de l'Apple 



Chute du prix des 
memoires du Mac 

En France aussi, la baissc du prix 
des memoires a contarriine lc Mac. 
En decembre. l'cxtcnsion de 128 
a 5l2Ko etait ainsi courarnment 
proposee a 2 500,00 Francs ci lc 
passage dc 512 a 1,5 M6gas a 
moins dc 8 000,00 F. 



Disques durs 

Pour l'Apple // d'abord. Avec 
eelte fois, un disque dur interne 
amcricain propose par SCS. H est 
content] sur tine carte s'installant 

sur un des slots et disponible en 
version 10 MCgas (SI 200s) ct 20 
Mtfgas ($1600). Un pari : on n'a 
pas fini de voir sc dcvclopper de 
tcls disques durs "cn cane" pour 
l'Apple // et leur prix baisser. 

Et le Mac ? 

En attendant le riisqnc dur de 20 
Mcgas Apple, Micro Expan- 
sion, a propose un disque dur dc 
5 Mtfgas pour le Mac, pour moins 
12 000,00 F (qui! est possible 
d'echanger ultcrieuremcnt contre 
un disque dur de plus grande 
capacile). 

Mais, loffensive a 616 ouverte sur 
le front des lectcurs double face. 
Premier a tirer, le fran5ais 
P-lngenlerie qui s'est avise a la 
fin 1985 que le lecteur double face 
de 8OOK0 llmdisk pour l'Apple // 
pouvait parfaitemcnt fonctionner 
sur lc Mac (a condition de realiscr 
un bricolage ires simple 
court-circuitant la some dc 
chainage" de ce lecteur). Restait 
cependant un pmhleme : comment 
formatter des disquettes 
double-face ? Avec lc nouvcau 
Mae, ec sera faeilc, cai les 

instructions sont dans la nouvelle 
ROM. Et en attendant ? 

P-Ingenierie a tout simplement 
6crit un logiciel de formattage des 
deux c6tcs dc la disqueitc et 
decide dc vendre des disqucttcs 
double face Fuji pre-formane'es. 
Pour les utilisatcurs, le cout des 
disquettes etait eleve, mais la 
modification int^ressante 
8OOK0, en utilisant un Unidisk, 
ccla permet dc cascr un Switcher 
et plusieurs applicauons, ou 
d'avoir un gros systerne (avec 
accessoircs dc bureaux et polices 



Micro - 
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Uc caiaclcrcs). Rcstc que cctlc 
operation <5iait forcemcnt limite~e 
dans le temps : les nouveaux Mac, 
presentes ce mois ci auront en 

standard les 8OOK0. 
A noter d'ailleurs que plusieurs 
firmcs d'Outrc Allanliquc sc sont 
cgalcmciiL laucccs dans les 
lecteurs double face, e'est lc cas 
dc Mirror Technologies avec 
le Mirror Magnum de 8OOK0. 
et de Dataspace Corporation 
avee un outre lecteur double face. 

Des gadgets 

La micro-informatiquc n'y 
exhappe pas. Aux £tats Unis, un 
consimctcur vend ainsi unc table 
speciale pour lc Mac : la 
MacTable de ScanCoFurn, 
specialement construite pour 
abritcr lc Mac, nmagewriter, etc. 
Un fabricant a trouve' moyen Uc 
fournir un ecran LCD pour 
I'Apple //c. plus lisible que celui 
d'Apple, e'est lc C Vue dc 

Roger Coats vendu avec une 
baUerie pour alimcntcr l 1 Apple /fc 
pour 600 dollars. 
Plus intcressante I'lmage Blue 
de Image Communications. 
Cet appareil (mi-scanncr, mi 
imprimanle) permet simulta- 
ncmcni de "scanner" (e'est a dire 
Uc transformer ligncs ou 
caracteres cn donnies 
informatiqucs) un textc ou un 
dessin et de 1'entrer dans un 
programme du Macintosh (4 
pages graphiques peuvent etre 
stockecs sur unc disquctte), puis 
dc nmprimcr. Prix : 1295 
dollars. A noter que cctie machine 
est egalemenl compatible avec 
t'lBM PC. 

Enfin, le Soft Strip de Cauzln 
poumait changer la vie de tous les 
auidleuis qui rccopicnt des 

programmes dans des revues 
specialisees de micro- 
infomnatique. C'est un lecteur de 
code qui se branche sur un micro 
(ct notamment sur 1 'Apple //) par 
L'ciiUee RS232. Les listings dc 
programmes, graphiques, sons, 
etc, peuvent etre imprimcs sous la 
forme d'un rub an de code barre. 
Le lecteur lit c& ende et le 
retranscrit dans l'ordinateur. Son 
prix n'est que dc 199 dollars, ct il 
suffil dc 30 uiillisccondcs pour 

lire un ruban. Les e*diicurs 
americains cludient la possibilitc 
dc publicr leuis programmes sous 

cette forme dans leurs revues : 
plus besoin d'acheter les 
disqucttcs, ni d'entrer les donnccs 
au clavier. . . On rfive deja de livres 
d'ecole comportant des "soft 
strips". 

Logiciels : a 
l'Ouest du 
nouveau 

Voici. en effet une avalanche de 
nouveaux logicicls venus des 

Ciats Unis. Pour I'Apple // 
d'abord avec Catalyst 3,0. Ce 
logiciel permet d'installer des 

logiciels proteges sur un disque 
dur el de passer de Tun a rautre. 
Le voici desormais custribuc par 
Apple ct livrc* en version souris et 



graphiquc, utilisablc avec lc 
nouvel Unidisk de 3,5 pouccs. 
Une impression : U ressemble 
bigrement au fameux Mouse Desk 

de Version Soft. Scrait-ce done lc 
mcmc produit sous un autre 
nom ? 

Voici ensuite, reserve c aux initios 
la version 6.0 de Locksmith 
d'Alpha Logic. Copie rapide en 
huit secondes sculement. . . 
Voici enfin Fantavlslon de 
B rod er bund. Un extraordinaire 
logiciel dc creation de dessins 
anim6s. La seulc mdthode pour 
dormer de la vie a un dessin. On 
le dessine. et il s'anime. Ics 
ombres s'ajnutent, on le fait 
bouger sur l'ecran. F an ta vision 
permet d'importcr des icrans 

haute resolutions d'autres 
programmes. 

En France aussi 

En France, aussi, les crcateurs de 
lngiciels pour Apple // ont mis la 

main au clavier. L'un d'eux, MG 

Informatlque, propose un 
additif s'instatlani sur 
Appleworks ct penmettant de 
l'utiliscr avec une souris. Un 
autre, Priam, propose un 
traitcmcnt dc tcxtc baptise Saphir 
iiiiegidiiL des fonctiuns 
mathematiques ct des calculs 
conditionncls, pcrmcttant dc 
travaillcr simultanement sur deux 
documents, d'obtenir une double 
justification avec cesure 
autoniatiquc ct dc visualiscr lc 
document final. Le tout pour 
moins de 2 000,00 F avec en 
prime mailing multicritere et 
glossaire : une manure d'exploit. 
Enfin, VerslonSoft, qui a 
fusionnc avec Controlc X, 
pioposc uac lafalc dc nouveaux 
logiciels : Version Tel, 
permettanl de transformer en 
Minitcl un Apple // equipe d'un 
modem (650,00 F), Arcane, 
pour predire Tavenir (680,00 F) 
ct pour les eitfants des Puzzles et 
des Colorlages (360,00 F 
chaque). 

Pour les professionnels du 
bailments, Architrlon de 
Glmeor permet de creer des 
objets cn trois dimensions. Dans 

chaque bloc, on peut creer des 
ouvertures et ■ y inserer des 
huisseries. etc. Ce logiciel 

specialement eludie pour les 
professionnels du bailment a etc 
prime par l'Agencc dc 
l'lufonnatiquc ct lc Ministerc dc 
l'Urbanisme. Prix : 15 000,00 F. 
Ce n'est pas donne\ 

Nouyeautes pour 
le 

Mac 

Avec pour ceux qui utilisent le 
Macintosh commc outil dc 
publication, dc iiouvcllcs versions 
des logiciels dedition : Ready 
Set Go version 2,0 distribue 
par B IP. et Mac Editeur 2,0 
distribue par Feeder. Tous 
permettent desormais d'importcr 
des testes saisis avec un 
traitcmcnt de textc comme 
Macwritc ou Word. 



Au rayon des u 1 il it aires. Disk 
Ranger dc Mainstay, 
permenant de rcaiiscr facilemcnt 
des etiquettes pour les disques. et 

de se consn'ruer un catalogue (prix 
: 50 dollars). Et surtout Tempo, 
d'Afflnity, un editeur dc 
lUciLiios, pcuncttant d'automatiscr 
des commandes, cn prcvoyant des 
pauses pour les entrees de textcs, 
la creation de zones de dialogue, 
des branchements logiques, etc. 
pour 99 dollars. Une seule 
coiuinandc a cffcctucr, ct 
Fordinatcur pr£lcver des 
informations dans un programme, 
les inclut dans un tablcur. Ics 
compare aux memes resultats 
dune periode precedente, en fait 
un graphiquc ct expedic lc tout par 

modem a un analyste... De 
Vendee, arrive une comptabilite' 
gcncraJc simple : McMuslne dc 

R rnceTlande 

Pour les profcssionels dc la 
chimic voici Mac Chemistry dc 
Fortnum Software cumpoitant 
des illustrations, un atlirail de 
laboratoire pcrmctiant de rcaliser a 
l'ecran des titrages d'acides ct 
bases, un utilitaire pour effectuer 
des annotations ct unc tabic 
pcriodiquc dc references. Prix : 
145 dollars. 

Des jeux pour lc 
Mac 

Le Mac peut aussi fitre un objet 
futile. La prcuvc : Maclnooga 
Choo Cboo dc Fortnum 
Software Reinventer le train 
electrique sur micro, U fallait le 
faire non ? C'cst fait. Avec ce 
programme permcuanl dc dessiner 
un circuit ferrC" avec terrains, raUs, 
aiguillagcs et d'y faire circuler des 
trains. N'est ce pas lc journaliste 
Daniel Carrie qui a dit que la 
micro informatique etait le train 
cleUiii^uc des adultcs des annccs 

1980 ? Prix 39 dollars. Wizardry 
etait l'un des best sellers des jeux 
d'aveniurc pour I'Apple //. Le 

voici desormais pour le Mac : 
c*cst Mac Wizardry dc Sir 
Tech. Prix : 60 dollars. 

Strategic Conquest dc PBI est 
un jeu de simulation dc guerre 
comprenant 15 niveaux dc 
difficultes et deux milliards de 
cartes du monde possible. Dcja vu 
dc Mindscape est un jeu 
d'avcntuic mclangcant tcxtc ct 

graphique. Deluxe Music 
Construction Set dblectro- 
nic Arts est l'un des plus 

sophistiques des programmes 
pcrmettanl de faire de la musique 
sui lc Mac. Quant a Enchanted 

Scepters de Silicon Beacb 
Software, e'est un classique jeu 
d'aveniurc mclangeant tcxtc ct 

graphiques, mais y ajoutant des 
elements sonores inedits. A noter 
enfin un rcmarquablc jeu dc 
boxe : Sierra Boxlug 
Champion- ship de Sierra On 
Line. On peut jouer centre 
Vnrdinateur en choisisant son 
adversaire parmi une kyrieUe de 
grands boxcurs. On peut aussi les 
faire jouer cntic cux, ct organiser 

un championnat avec Cassius 
Clay. Lc jeu a 616 realise par 
d'authemliqucs spccialistcs. ct les 



boxcurs ont les caracteristiques de 
leurs vrais modclcs. 



A dresses 

Applied Engineering 

P.O. BOX 798 Carrollton, TX 

75006 

scs 

301 S. Washington Ave. P.O. 
Box 2767,Titu3villc, FL327081 

P-Ingenlcrle 

2?fiRdRa«;pail, 75014 Paris 

Mirror 

Technologies 2209 Phelps Road 
Hugo. Minnesota 55038 

Data Space Corp 

205 Riviera Drive, Markham 

Ontario Canada L3R2L6 

Micro Expansion 

234 route dc Gcnas 69003 Lyon 

ScanCoFurn 

Tel aux USA : 1 .800 722 6263 

Roger Coats 

Tel aux USA: (619)274 1253 
Image Communications 
640 West Putnam Av.P.O. Box 
480y Greenwich CT 06836 0086 

Cauzin Systems 

835 South Main Street Watcrbury 

CT 06706 

Alpha Logic Business 
Systems 

4119 North Union Road 
Woodstock IL 60098 
Broderbund 

17 Paul Drive San Rafael CA 
94903 

MG Informatique 

BP 1034 54521 Laou Cedex 

Priam 

53 me dc Paris 92 100 Boulogne 
Version Soft 

93 rue Lauriston, 75016 Paris 
BIP 

13 rue Due, 75018 Paris 

Feeder 

BP 781 H742 Vitrollcs Ccdcx 
Mainstay 

2861 IB Canwood St Agoura 

Hills CA 91301 

Affinity 

1050 Walnut Street Suite 425 
Boulder CO 80302 

Broccllandc Productions 
BP 102 85105 Les Sables 
d'Olonnc 

Fortnum Software 

31 W Sierra Madre Blvd Sierra 

Mfldic CA 91024 

Glmeor SA 

39 quai d' Alsace 59500 Douai 
Sir Tech 

6 Main Street Ogdensburg N.Y. 
13669 

PBI 

Software 1111 Triton Drive 2nd 
Floor Foster City CA 94404 
Mindscape 

3444 Dundee Road Nonhbrook II 
60062 

Electronic Arts 

2755 Campus Drive San Mateo 

CA 94403 

Silicon Beach Software 

P.O. Box 261430 San Diego CA 
92126 
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Courrier des Lecteurs 

Olivier Herz, Alexandre Avrane, Bruno Fenart 



Void deux petits programmes 
Basic pour recopier sur 
imprimante les icrarts texte 40 ou 

80 colonnes. Lots de la mise au 

point de programmes, ils peuvent 
rendre des services : il nest alors 
pas nicessaire de se preoccuper 
immidiatement des tventuelles 
questions de compatibilite des 
routines en assembleur (HCT. 
OBJ deja pa rue dans Pom's t par 
exemple). 

Programme COPIE40 

10 PRINT CRR$ (4) ; "PRil " : 
FOR Y - 1 TO 24: FOR X - 

1 TO 40: AS = CHR$ ( SCR 
N{ X - 1,2 * (Y - 1)) + 
(16 * 5CRN( X - 1,2 * ( 
Y - 1) + 1})) :B$ m B$ f 
A$: NE XT X: PRINT B$:B$ 

= "": NEXT Y; PRINT CHR 

$ (4);"PR*0" 

Programme COPIE80 

10 PRINT CHR$ (4) ; "PRil " : 
POKE - 16383, 0: FOR Y = 

2 TO 24: FOR X = 1 TO 40 
: POKE 16299,0: GO SUB 
20: POKE - 16300,0: GOS 
UB 20: NEXT X: PRINT B$; 
:B$ = "": NEXT Y: POKE - 
16384,0: PRINT CHR$ (4) 
; "PRi3": END 

20 A$ = CHR$ { SCFN( (X - 
1),2 * {Y - 1) ) + (16 * 
SCIW( (X - 1),2 * (X - 1 

) +1))} :B$ = B$ + A$: R 
ETURN 

J-M Roulon, Les Cayes sous 
Bois 



A vendre 2 Apple III (128Ko et 
256Ko) avec deux lecteurs 
chacun. Parfait Stat de marche et 
prix interessant. Cause : achat 

Macintosh. Contacter M. Claude 
Jximoureux au (I) 46.87.26.12. 



Message d Yves Martin 

Vous nous avez annonce 
votre demenagement. Si 
vous n'avez pas regu notre 
lettre, priSre de nous 
contacter. 



Le programme 'Gestion de 
fenetres' souffre de quelques 
defauts de jeunesse. Tout 
d'abord, deux erreurs typo- 
graphiques : 

&C NF, MG, MD, MR, MB (,CH> en 
mode creation et 

& LET NV, VT, HT, LN, NI, (,IL) 
pour les menus (signal^ dans 

Pom's 21). 

J'ai constate que le caracthre 
dilimiteur defini lors de la 
creation d'unefenetre n'etait pas 
sauvegardi. Je vous propose 
done ci-dessous une petite 
modification au programme : 

La methode est la suivante : 

]BLOAD WINDOW 
] CALL -151 
*8AO0:O0 89 
*8£78:4L- 18 89 
*8F66:4C 23 89 
*8F70:«1C 23 89 
*8784:4C 2C 89 
"S05D-.AC 3A 89 

Entrer le listing ci-dessous : 

*8900:4C EE 89 C6 20„. 

Puis sauvegarder le nouveau code 
objet : 

BbAVt W1NUOW,A$8900,L$GDQO 

Patch WINDOW LAHY 



8900- 


AC EE 89 


JMP 


$89EE 


8903- 


C6 20 


DEC 


$20 


8905- 


E6 21 


INC 


$21 


8907- 


E6 21 


INC 


$21 


8909- 


C€ 22 


DEC 


$22 


890B- 


E6 23 


INC 


$23 


890D- 


60 


RTS 




890E- 


E6 20 


INC 


$20 



8910- 


C6 21 




DEC 


$21 


8912- 


C6 


21 




DEC 


$21 


8914- 


E6 


22 




INC 


$22 


5976- 


C6 


23 




DEC 


$23 


8918- 


60 






RTS 




8919- 


20 


OF. 


89 


JSR 


S890E 


891C- 


20 


9E 


8D 


JSR 


$8D9E 


891F- 


60 






RTS 




8920- 


EA 






NOP 




8921- 


EA 






NOP 




8922- 


EA 






NOP 




8923- 


20 


03 


89 


JSR 


$8903 


8926- 


20 


Fl 


8E 


JSR 


S8EF1 


8929- 


4C 


73 


8F 


JMP 


$8F73 


892C- 


AD 


AE 


8A 


LDA 


SHAAE 


892F- 


FO 


03 




BEQ 


$8 S3 A 


8931 - 


20 


OE 


89 


JSR 


S890E 


8934- 


20 


9E 


8D 


JSR 


S8D9E 


8937- 


AC 


87 


8F 


JMP 


$8F8 7 


893A- 


AD 


4E 


8A 


LDA 


S8AAE 


893D- 


FO 


03 




BEQ 


$89A2 


893F- 


20 


OF. 


89 


JSR 


S890E 


8942 


20 


9E 


8D 


JSR 


S8D9E 


8945- 


4C 


60 


90 


JMP 


$9060 


8948- 


AD 


S3 


8A 


LDA 


S8A53 


H9AB- 


C9 


03 




CMP 


0$O3 


894D- 


90 


11 




BCC 


S8960 


894F- 


38 






SEC 




8950- 


AD 


55 


8A 


LDA 


$8A55 


8953- 


ED 


SA 


8A 


SBC 


$9 ABA 


8956- 


C9 


03 




CMP 


§$03 


8958- 


90 


06 




BCC 


$8960 


895A- 


AD 


54 


8A 


LDA 


$8A5A 


895D- 


AC 


7S 


8E 


JMP 


S8E7B 


8960- 


AC 


BO 


8E 


JMP 


$8EB0 



Claude LA11Y, Villejuif 



I care... 

En plus des precisions apporties 
dans le courrier des lecteurs du 
Pom's 19, je voudrais apporter 
les precisions suivantes : 
• &PROUT x envoie le code 
ASCII x, x pouvant etre 
superieur d 128 contrairement & 
CHR$(x)... Pratique pour 
commander I'imprimante. 

Exemple : 

&PROUT27 , 52 , "TOTO" : SPR0UT2 
7, 53, "tot o" donnc sur une 
Epson : 

TOTOtoto 



72 
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• Le curseur vraiment bizarre de 
HGR PRINT peut-etre corrige 
par le patch suivant : 

8E51: E6 4E DO 11 E6 4F Bl 

26 49 ff 91 26 Bl 28 AA A5 

IF 91 28 86 IF A2 00 CA DO 

FD EA EA EA 2C 00 CO 10 DE 

Pascal Cantot, La Courneuve 



La 36eme piste, suite... 

Une precision sur V article de B. 
Tome no du Pom's 21 : 
La modification indiquee ne suffit 
pas pour que le DOS utilise les 
secteurs lib&res sur la piste $11. 
Heureusernent, seul un petit patch 
du DOS est nicessaire. A ['aide 
de voire iditeur de secteur 
prefer6 r il convient de modifier 
V octet $92 du secteur 1 de la piste 
2 : mettre $A9 au lieu de $69. Au 
niveau de Tassembleur, cela 
revient a remplacer en $B291 : 

CLC per CLC 

adc if $11 lda #$ll 

STA $B3EB STA $B3EB 

Le code original ajoute a $21 la 
valeur du deplacement ( -hi ou -1 ) 
pour passer d la piste suivante. 
Selon le sens, on commencait 
done en piste $12 ou $10. Le 
patch per met de commencer en 
$11. 

Un second point : pourquoi se 
limiter a 36 pistes ? Mon 

Duo-disk en wltre iris bien 40. 
Pour cssayer, il suffit defairc : 

CALL -151 

BEFB:28 

INXT HELLO 

G. Jacquet, Chatillon la Palud 



Encore un mot sur la saisle de 
date en Pascal (par Eric Pascual, 
Pom's 16 page 53) ! Pour 
I'utiliser avec Pascal 1.2, la 
constante ADRDATE doit etre: 

• -21252 avec la version 64Ko 

• -18342 avec la version 128Ko 
Reportez-vous & la lettre de 
Christian Bellot (Pom's 18, page 



77), pour les autres details 
d' implantation. 

Voici par uilleurs un petit patch 
permettant aux possesseurs de 
compatibles Apple If (genre 
Franklin ou Basis 108) de charger 
ProDOS. En effet, celui-ci virifie. 
au moment du chargement, le type 
d' Apple utilise et, dans le COS qui 
nous inter esse ici, refuse de 
poursuivre le boot. 11 faut 
rechercher les codes suivants, & 

I'aide d'un Sditeur de secteurs, 
puis les modifier : 

LDX SFBB3 (AE B3 FB) devient 

LDX #$EA, NOP (A2 EA EA) 
ADC #$0B, BNE +5 (69 OB DO 

03) devient adc #$0b, nop, 

NOP (69 OB EA EA) 

Ce patch ne fonctionne pas sur 

certains logiciels (comme 

AppleWorks) qui tentent, 

indeperuiemrnerU de ProDOS, de 

determiner s'il s'agit d'un lie ou 

lie. 

Hubert L'HOPITAL, 93300 
Aubervillicrs 

Merci pour ces informations ! 



Je possede un Apple He avec une 
carte 80 colonnes et un lecteur de 
disquettes. J'ai essaye de 
convertir des programmes DOS 
3.3 en ProDOS avec I'utilitaire 
CONVERT fourni par Apple. 
Malhcurcusementj ilmefaudrait 
deux lecteurs. Comment faire ? 

Olivier Sonde rer, 30490 Montfrin 

Trois solutions possibles: 

• La plus facile : un grand 
sourire a votre distributeur pour 
qu'il vous laissc convertir vos 
programmes dans sa boutique en 
une apres-niidi. 

• La plus compliqude : vous 
chargez le programme de 
conversion paru dans Pom's 16, 
en sortez par la troisi&me option et 
vous obtenez ainsi le DOS 3,3 et 
ProDOS simultancment actifs en 
memoire ; il ne reste qu'sl chargez 
et sauvez individuellement chacun 
de vos fichiers. 



• La plus rapide: vous executez 
lc programme d'initialisation 
dune disquette mixte DOS 
3.3/ProDOS (Pom's 18) ; la 
conversion est alors realisee en 
trois etapes : alimentation de la 
disquette par FID, conversion des 
fichiers par CONVERT, puis 
transfert dc ccux-ci par FILER 
vers la disquette definitive. 



Est-il possible de sortir, sur ecran 
ou imprimante, des fichiers 
source de programmes en 
assembleur quand on ne possede 
ni I'assembleur idnine, ni de 
traitemeni de texte ? 

Philippe DEMERAUX, 43360 
ARVANT 

• L'affichage des sources 
d'assembleurs est possible sous 
ProDOS par la commandc 
additionnelle TDUMP (Pom's 
20). 

• Sous DOS 3.3, les sources 
stockes sous forme de fichiers 
TEXT sont accessibies par le 
TDUMP/DOS 3.3 (Pom's 12). 

• S'ils sont stockes sous forme 
de fichiers binaires (par exemple 
Big Mac ou Merlin), il est 
necessaire de patcher le DOS pour 
qu'il autorise la lecture : 

A7C9- AND #$7F (29 7F) 
devient lda #$00 (A9 00) 

e'est k dire : poke 42953,169 : 
POKE 42954,0 

• En revanche les fichiers de 
Lisa, stockes sous un format frfes 
particulier du DOS 3.3, et de plus 
encodes (les instructions sont 
conservees sous forme de tokens, 
comme le fait l'Applesoft), sont 
alors inaccesibles. 

Un simple PR#1 permet de sortir 
sur imprimante. 



CDIGRAPH (Pom's 21) 

Lorsque vous bootez sur la disquette Pom's 
n' 21 , faites CTRL-C des la mise en route pour 
que te» 'LOMEM:' du HELLO ne soit pas 
execute. 
Ainsi, vous pourez faire : 
RUN ED1GRAPH 
sans obtenir un cruel Out Of Memory Error... 
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Disquettes 

Haifa source 

H-BASIC 

MUSIC 

DISK-MANAGER 

BASICIUM 

E.P.E 

PASCAL 

MAX (Moniteur etendu) 

DOMINOS 

MACASTUCES 

P-FORMAT ][, P-POLICE ][ 
COCO 



comma nde 



(cf. Pom's n' 5) a 55,00 F 

(cf. Pom's n* 8) a 150,00 F 

(cf. Poms n' 10) a 80,00 F 

(cf. Poms a' 11) a 450,00 F 

(cf. Pom's n' 13) a 150,00 F 

(cf. Pom's n' 15) a 150,00 F 

(cf. Pom's n' 15) a 80,00 F 

(cf. Pom's n' 18) a 150,00 F 

(cf. Pom's n' 19) a 80,00 F 

(cf. Pom's n' 21) a 200,00 F 

(cf. Pom's n' 21) a 200,00 F 

(cf. Pom's n' 21) a 150,00 F 



Rccucils 



N°l, recueil des revues 1 a 4 a 140,00 F 

Disquettes d'accompagnement 1 a 4 a 150,00 F 

N°2, recueil des revues 5 a 8 a 140,00 F 

Disquettes d'accompagnement 5 a 8 - a 190,00 F 



Revues, disquettes 



Revues 4 7 8 a 35,00 F 

Revues 9 10 11 12 13 14 15 16 17 18 19 20 21 22 ■ a 40,00 F 

Disquettes Apple II, //e, //c 

1/2 3 4 5 6 7 8 9 10 11 12 a 55,00 F 

13 14 15 16 17 18 19 20 21 22 

Disquettes Macintosh 

14/15/16 groupccs a 150,00 F 

17 18 19 20 21 22 a 80,00 F 

Mac 'A' a 80,00 F 

AbonnementS Pour 6 numcros A pnrtirdn n'l I 

Abonnement a la revue seule a 200,00 F 

Abonnement revue +■ disquettes Apple II, ffe, He a 480,00 F 

Abuuneinent revue +■ disquettes Macintosh a 600,00 F 



Total TTC : 

Supplement avion hors CEE : 15,00F par numcro et/ou disquette : 

Montant du reglement : 



Emoyez ce bon et votre rtglemeni n : EDITIONS MEV, 64 rue des Chantiers 78000 VRRSAILLRS 

Nom : 

Adresse : 



Imprimeiie Rosay- 94300 Vincenn«.lnipnmc en France. Depot legal Janvier 1986. N° 5268 
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CEDE* 






>^-HW 

BON DE COMMANDE 

a retourner a INFOMAG. 5 place du Colonel Febien. 75491 Peris cedex 10 

OUI je desire m'obonner pour 7 numeroso INfOMAGau prixde 215 F. 
- Jedeslrerecevolr.au prlx de 35 F 1'un : Plenumerol Qlenumero2 □ Jenumeru3 
Je vous adresse mon reqlement par cheque bancatre a 1'ordre de INFOMAQ 

NOM PRENOM 

ADR ESSE 
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ORDINATEUR 




ROGRAMMES 



ALICE • AMSTRAD • APPLE • ATARI • BBC 
CANON X 07 • COMMODORE • EXL 100 
IBM PC • MSX • ORIC • SINCLAIR QL 
SPECTRUM • THOMSON MO 5 ET TO 7/70 
Tl 99/4A • TRS 80 • ZX 81 




JEUX, UTI LIT AIRES, EDUCATIFS 
PLUS UN TABLEAU COMPARATIF DES BASIC 
POUR ADAPTER LES PROGRAMMES 
SUR TOUS LES MICRO-ORDINA TEURS 
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